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

Question

Информатика

Анжела

16 декабря, 08:07

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

+5

Ответы (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.