делители

[semennn]

надо найти кол-во делителей числа при (1<=n<=10^18) на Паскале
Вот мой вариант . Медленно работает при n=10^18

 
  read(n);
  i:=1;
  while i*i<=n do
  begin
  if n mod i=0
  then if i=n div i
  then p:=p+1
  else p:=p+2;
  inc(i);
  end;
  end;
write(p)

[Костя КС]

мой вариант.

begin
p := 0;
readln(n);
for i:=1 to n do
begin
  if n mod i = 0 then p:=p+1;
end;
writeln(p);
end.

[semennn]

Извини но ни чо что у тебя на корень из N больше повторений в цикла а???