Надо вывести n первых чисел Фибоначчи

Question

Информатика

Акилина

28 июля, 13:43

Надо вывести n первых чисел Фибоначчи

+4

Ответы (1)

Знаете ответ на вопрос?

Федосей · Answer 1

Begin

write ('Введите целое число n (n > 1) : ') ;

var n : = ReadInteger;

var a : = 1;

var b : = 1;

write (1, ' ', 1, ' ') ;

for var i : = 3 to n do

begin

var c : = a + b;

write (c, ' ') ;

a : = b;

b : = c;

end;

end.