Var k,i,m,j:integer;
begin
k:=0;
for i:=10000 to 99999 do
begin
m:=0;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then m:=m+1;
if m=0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 8363
Всего 52 ребёнка
Половина любит конфеты
20 человек и конфеты и мороженное
Сколько детей любит мороженное? Сколько детей любит только мороженное.
Решение:
1) 52:2=26 детей любит конфеты
2) 26+20=46 детей любят и то и то
Ответ: 26 детей любят только мороженное
Я думаю, не уверен, что это А
Поскольку 17 простое нечетное число его обнулили, и 17 не делится ни на что кроме себя и 1