Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности Фибоначчи

Question

Информатика

Марго

25 января, 12:35

Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности Фибоначчи

+2

Ответы (1)

Знаешь ответ?

Филарета · Answer 1

Var f1, f2, f, i:integer;

begin

f1:=1; f2:=1;

write (f1,' ', f2,' ');

for i:=3 to 10 do

begin

f:=f1+f2;

write (f,' ');

f1:=f2;

f2:=f;

end;

writeln;

end.

Результат:

1 1 2 3 5 8 13 21 34 55