Числа Фибоначчи – элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, …, в которой каждое последующее число равно сумме двух предыдущих чисел. Количеств...
Числа Фибоначчи – элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, …, в которой каждое последующее число равно сумме двух предыдущих чисел. Количество простых чисел среди первых сорока пяти чисел Фибоначчи составляет …
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы