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

Question

Информатика

Аза

21 октября, 14:05

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

+2

Ответы (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.