Ответы на вопрос:
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
Популярно: Информатика
-
LILIAGNATIV29.08.2020 09:52
-
дашаdaria1212.11.2020 15:59
-
Впрвиво19911929.11.2020 04:38
-
malinanika70418.05.2020 07:29
-
армен45919.06.2022 17:13
-
perevuznik120.04.2020 21:40
-
KAKAKALYYA1212.01.2023 19:39
-
lol1337rus21.10.2021 16:10
-
viktoriasvoya11.12.2021 11:24
-
ilona12205.02.2021 17:01