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

Question

Информатика

Емилий

25 июня, 04:44

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

+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