Напишите программу нахождения 10 чисел фибоначчи. ПАСКАЛЬ
Напишите программу нахождения 10 чисел фибоначчи. ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гостьvar
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
Не нашли ответ?
Похожие вопросы