Напишите программу для ABC Pascal для вывода n числа Фибоначчи, где n <=40. Массив не...

Question

Напишите программу для ABC Pascal для вывода n числа Фибоначчи, где n <=40. Массив не использовать

Answer 1

Var    a,b,c,i,n: integer;
begin   
write('n = ');   
readln(n);    
a := 0;   
write(a,' ');    b := 1;    write(b,' ');   
 for i:=3 to n do begin     
  write(a+b,' ');       
 c := b;       
b := a + b;       
a := c   
 end;end.

Comments

А как вывести только последнее число и обозначить, что n<=40?

---

все write закоментировать

---

end;
writeln(b);
end.

---

добавить

---

Спасибо