Question

составить блок-схему ,которая по заданному с клавиатур порядковому номеру N кол-во числео выясняет N число фибиначчи. Например 1,1, 2,3,5,8,12,21 т.е. 1+1=2, 2+1=3,3+2=5, 5+8=12 и.т.д

Answer 1

var N,m,m1,m2,i:integer;
begin
read(N);
m1:=1;
m2:=0;
for i:=2 to N do begin
m:=m1+m2;
m2:=m1;
m1:=m;
end;
write(m);
end.