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.

Answer 2

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

Answer 3

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

Answer 4

end;
writeln(b);
end.

Answer 5

добавить

Answer 6

Спасибо