Нахождение n-го числа Фибоначчи - Pascal ABC

Формулировка задачи:

Найдите n-е число Фибоначчи. Числа Фибоначчи определяются следующим образом: F0 = F1 = 1, Fn = Fn-1 + Fn-2, где n = 2, 3, 4, 5, …, n. Основную программу, осуществляющую вывод на экран n-го числа Фибоначчи.

Код к задаче: «Нахождение n-го числа Фибоначчи - Pascal ABC»

textual
var
   n,i,a,b,c:longint;
begin
    read(n);
    a:=1;
    b:=1;
    write(a,' ',b,' ');
   for i:=3 to n do 
     begin
       write(a+b,' ');
        c:=a;
        a:=b;
        b:=a+c;
      end;
end.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ