СРОЧНО!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Получить и записать в массив первые 10 чисел Фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).
Получить и записать в массив первые 10 чисел Фибоначчи (первые два числа равны 1, а каждое последующее- сумме двух предыдущих).
Answers & Comments
Verified answer
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.