Нужна помощь! Определить кол-во чисел Фибоначчи в последовательности целых чисел. Количество элементов в последовательности неизвестно.
Нужна помощь! Определить кол-во чисел Фибоначчи в последовательности целых чисел. Количество элементов в последовательности неизвестно.
Гость
Ответ(ы) на вопрос:
Гостьvar k,a:integer;
function fib(f:integer):boolean;
var f1,f2,fn:integer;
begin
f1:=1; f2:=1; fn:=1;
while fn0 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
Не нашли ответ?
Похожие вопросы