Предмет: Информатика,
автор: vonuhovair
Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности Фибоначчи
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: Литература,
автор: nastyakyznetsova297
Предмет: История,
автор: Andrewingt
Предмет: Английский язык,
автор: szumabaj076
Предмет: Математика,
автор: dastan259
Предмет: Литература,
автор: ovik00066