Сколько среди чисел от 5523 до 6572 (включительно) таких чисел, для которых выполняются одновременно два свойства: они простые их сумма цифр четна
277
392
Ответы на вопрос:
Var i,j,m,k : integer; begin k: =0; for i: =5523 to 6572 do begin m: =0; for j: =2 to trunc(sqrt(i)) do if i mod j = 0 then m: =m+1; if m=0 then if ((i div 1000)+(i div 100 mod 10)+(i div 10 mod 10)+(i mod 10)) mod 2 = 0 then k: =k+1; end; writeln('k=',k); end. результат: k=58
Популярно: Информатика
-
asdf3710.09.2022 04:51
-
Blueberrynyam27.11.2021 18:20
-
valeriya21032209.10.2020 01:32
-
coolflex17.12.2022 17:37
-
finnolol03.07.2020 17:24
-
maximpopov200113.10.2021 06:34
-
Kirpiche31.03.2023 03:31
-
Ulamaishka56713.01.2020 17:00
-
belka071422.07.2021 21:29
-
Алия005126.04.2022 03:09