Числа Фибоначчи – элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34,...

Question

Числа Фибоначчи – элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, …, в которой каждое последующее число равно сумме двух предыдущих чисел. Количество простых чисел среди первых сорока пяти чисел Фибоначчи составляет …

Answer 1

Var f1,f2,s,i,k:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
f1:=1; f2:=1;
k:=0;
for i:=4 to 45 do
 begin
 s:=f1+f2;
 if prost(s) then begin inc(k); writeln(i,'-',s); end;
 f1:=f2;
 f2:=s;
 end;
writeln('k=',k);
end.

Результат:
4-2
5-3
6-5
8-13
12-89
14-233
18-1597
24-28657
30-514229
44-433494437
k=10