Pascalabc.net вычислить n членов ряда фиббоначи . выбор формы цикла на ваше усмотрение.

bagdasaryaneedik6390 bagdasaryaneedik6390    1   14.09.2019 20:40    1

Ответы
vladbb2017 vladbb2017  07.10.2020 15:12
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика