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

Question

Информатика

Мирра

20 мая, 11:11

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

+4

Ответы (1)

Знаете ответ?

Артамоныч · 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.