PascalABC.NET Вычислить N членов ряда Фиббоначи . Выбор формы цикла ** ваше усмотрение.

0 голосов
31 просмотров

PascalABC.NET
Вычислить N членов ряда Фиббоначи . Выбор формы цикла на ваше усмотрение.


Информатика (113 баллов) | 31 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var (a,b):=(1,1);
  Print(a);
  for var i:=3 to n+1 do begin
    Print(b);
    (a,b):=(b,a+b)
    end
end.

Пример
n= 15
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
(150k баллов)