У скольких чисел от 1 до 2030 включительно ровно четыре натуральных делителя? (Включая 1 и само число).

Question

Информатика

Аверий

6 августа, 11:13

У скольких чисел от 1 до 2030 включительно ровно четыре натуральных делителя? (Включая 1 и само число).

+4

Ответы (1)

Знаете ответ на вопрос?

Тимаша · Answer 1

Var n, k, i, j:integer;

begin

n:=0;

for i:=3 to 2030 do

begin

k:=2;

for j:=2 to i div 2 do

if i mod j = 0 then k:=k+1;

if k=4 then n:=n+1;

end;

writeln ('n = ', n) ;

end.

Результат:

n = 573