Оставить программу Pascal вывода на экран n чисел Фибоначчи
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger(n=),1,1,(x,y)->x+y).Println
end.
Тестовое решение:
n= 10
1 1 2 3 5 8 13 21 34 55
Оцени ответ
Вход
Регистрация
Задать вопрос
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger(n=),1,1,(x,y)->x+y).Println
end.
Тестовое решение:
n= 10
1 1 2 3 5 8 13 21 34 55