Question

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

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.