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

Question

Информатика

Тонюша

23 августа, 08:47

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

+4

Ответы (1)

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

Антоха · Answer 1

Var n, k, i, j:integer;

begin

n:=0;

for i:=2 to 2020 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 = 571