Дано натуральное число N. Определить К - количество делителей этого

числа, не превышая его (N = 12, его делители 1, 2, 3, 4, 6, К = 5)

Question

Конкордия

31 августа, 13:38

+1

Ответы (1)

Знаете ответ?

Веруся · Answer 1

Uses crt;

var n, i, k:integer;

begin

read (n) ;

for i:=1 to n-1 do

if i mod k=0 then

k:=k+1;

writeln (k) ;

end.

Дано натуральное число N. Определить К - количество делителей этогочисла, не превышая его (N = 12, его делители 1, 2, 3, 4, 6, К = 5)