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

231

245

Посмотреть ответы 2

Ответы на вопрос:

Dima7111

Информатика

4,7(57 оценок)

Программа в системе pascalabc.net (время выполнения около 2с) var n1,n2,n3: int64; function isprime(n: int64): boolean; var p: int64; found: boolean; begin case n of 1: isprime: =false; 2: isprime: =true; else begin found: = (n mod 2 = 0); p: =3; while (not found) and (sqr(p)< =n) do begin found: =(n mod p = 0); p: =p+2 end; isprime: =(not found) or (p = 2) end end end; procedure fib(); begin n3: =n1+n2; n1: =n2; n2: =n3 end; var i,k: integer; begin n1: =0; n2: =1; k: =0; writeln('простые среди первых 45 чисел фибоначчи'); for i: =3 to 45 do begin fib; if isprime(n3) then begin write(n3,' '); inc(k) end end; writeln(#13#10,'найдено простых чисел: ',k) end. результат выполнения программы: простые среди первых 45 чисел фибоначчи 2 3 5 13 89 233 1597 28657 514229 433494437 найдено простых чисел: 10