Утилита - это ПО 1.расширяющее возможности ОС
2.для решения задач из различных областей
3.для разработки прикладного ПО
4.управляющее всеми ресурсами
надо
201
407
Ответы на вопрос:
//pascal abc.net 3.1 сборка 1219 function fibonachi(i: integer): integer; begin if i=0 then fibonachi: =0 else if i=1 then fibonachi: =1 else fibonachi: =fibonachi(i-1)+fibonachi(i-2); end; var i,j,k: integer; b: boolean; begin i: =1; while fibonachi(i)< 32000 do begin b: =false; for j: =2 to i div 2 do if i mod j=0 then b: =true; if (b=false) and (fibonachi(i)> =2) then inc(k); inc(i); end; writeln(k); end.
Популярно: Информатика
-
kaleksandra05207.10.2021 13:57
-
tcacencoanastap08j8v25.04.2022 14:50
-
Emma19001.02.2022 18:43
-
Bredyatish25.06.2022 04:04
-
Violetta1508mailru21.06.2023 08:24
-
21ololoha19.04.2022 18:06
-
divinadd1125.07.2022 05:17
-
LizaIvaskevich22.09.2021 15:55
-
йщз18.12.2021 17:17
-
karinarei201701.11.2021 16:46