Возникли сложности в переводе с языка Паскаль на 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;
}
//---------------------------------------------------------------------------

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5