Числа Фибоначчи (fn) определяются формулами: f0=f1=1, fn=fn-1+fn-2 при n=2,3,…...

Question

Числа Фибоначчи (fn) определяются формулами: f0=f1=1, fn=fn-1+fn-2 при n=2,3,… Разработать схему алгоритма для вычисления числа Фибоначчи. Определить f10, f25, f40.

Answer 1

Ето прога на Pascal!(Будут вопросы пиши) 

 

program fibonachi;
var f:array [0..1000] of longint;
a,i,i2,i3:integer;
begin
writeln ('Vvedit nomer potribnogo chisla');
readln (a);
f[1]:=1;
f[0]:=1;
if a<=1 then<br>writeln(f[a]);
if a=2 then writeln(3);
if a>2 then begin
for i:=2 to a do
begin
i2:=i-1; i3:=i-2;
f[i]:= f[i2]+f[i3];
end;
writeln (f[i]); end;
readln
end. 

 

f10=89

f25=121393

f40 =165580141