Напишите процедуру которая принимает параметр - натуральное число N и выводит первые N чисел Фибоначчи

Question

Информатика

Лилюха

5 октября, 15:34

Напишите процедуру которая принимает параметр - натуральное число N и выводит первые N чисел Фибоначчи

+3

Ответы (1)

Знаете ответ на вопрос?

Андрюня · Answer 1

Procedure fib;

var n, i, a, b: integer;

begin

read (n) ;

b : = 1;

for i : = 2 to n do begin

b : = a + b;

a : = b - a

end;

if n = 0 then write (0)

else write (b) ;

end;

begin

fib;

end.