Нужна помощь! Определить кол-во чисел Фибоначчи в последовательности целых чисел. Количество элементов в последовательности неизвестно.

Question

Информатика

Майа

1 июля, 00:45

Нужна помощь! Определить кол-во чисел Фибоначчи в последовательности целых чисел. Количество элементов в последовательности неизвестно.

+4

Ответы (1)

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

Януарий · Answer 1

Var k, a:integer;

function fib (f:integer) : boolean;

var f1, f2, fn:integer;

begin

f1:=1; f2:=1; fn:=1;

while fn
begin

fn:=f1+f2;

f1:=f2;

f2:=fn;

end;

fib:=fn=f;

end;

begin

k:=0;

writeln ('Вводите числа (0-конец последовательности) ');

readln (a);

while a0 do

begin

if fib (a) then k:=k+1;

readln (a);

end;

writeln ('k = ', k);

end.

Пример:

Вводите числа (0-конец последовательности)

5

10

2

15

8

13

20

0

k = 4