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

1

Ответы и объяснения

2014-02-04T17:05:53+04:00
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.