СРОЧНО!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!! Получить и записать в массив первые 10 чисел Фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).
СРОЧНО!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Получить и записать в массив первые 10 чисел Фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var
f:array[1..n] of integer;i:integer;
begin
f[1]:=1;
f[2]:=1;
for i:=3 to n do f[i]:=f[i-2]+f[i-1];
for i:=1 to n do write(f[i]:3);
writeln;
end.
Не нашли ответ?
Похожие вопросы