Паскаль, числа Фибоначчи. Числа Фибоначчи (fn) определяются формулами f0=f1=f2; fn=fn-1+fn-2 при n=2, 3,... Нужно составить программу для поиска f — первого числа Фибоначчи, большего m (m>1).

Предыдущий
вопрос Следующий
вопрос

program FibonacciSequence;
var
m, f0, f1, f2, f: integer;
begin
writeln('Enter a number m:');
readln(m);

f0 := 0;
f1 := 1;
f2 := 1;

while f2 <= m do
begin
f := f1 + f2;
f0 := f1;
f1 := f2;
f2 := f;
end;

writeln('The first Fibonacci number greater than ', m, ' is ', f);
end.