Возникли сложности в переводе с языка Паскаль на C#
Формулировка задачи:
VAR f,f_2,f_1,m:Longint; BEGIN Write('m (>1)= '); Readln(m); f_2:=1; f_1:=1; Repeat f:=f_1+f_2; f_2:=f_1; f_1:=f; Until f>m; Writeln('f= ',f); Readln; END.
Решение задачи: «Возникли сложности в переводе с языка Паскаль на C#»
textual
Листинг программы
//--------------------------------------------------------------------------- #include <vcl.h> #include <iostream.h> #include <conio.h> #pragma hdrstop //--------------------------------------------------------------------------- #pragma argsused int f, f2, f1, m; int main(int argc, char* argv[]) { cout << "Vvedite m(>1):" << "\n"; cin >> m; f2 = f1 = 1; do{ f = f1+f2; f2 = f1; f1 = f; }while(f<m); cout << "Resultat f=" << f << "\n"; getch(); return 0; } //---------------------------------------------------------------------------
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д