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

Question

Информатика

Лаврентий

31 мая, 16:53

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

+5

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