Оптимизация кода

@Rigg · Регистрация: 22.05.2017

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста.
Такая проблема всплыла, нужно оптимизировать код, чтобы он выполнялся за 1 секунду, но идей как это сделать 0
На входных данных там целое число n, 1≤n≤10^9.
Программа выводит количество различных натуральных делителей числа n

Pascal

var 
i,a,n:integer; 
begin 
read(a); 
n:=0; 
for i:=1 to a do 
if a mod i=0 then 
n:=n+1;
writeln(n); 
end.

@bormant · 22.05.2017, 20:19

Pascal

var a: Longint; n, q, i: Integer;
begin
  Read(a); q:=Trunc(SqRt(a));
  for i:=1 to q do if a mod i=0 then Inc(n,2);
  if Sqr(q)=a then Dec(n);
  WriteLn(n);
end.

@Rigg · 22.05.2017, 20:55 **[ТС]**

Спасибо!

@Rigg 0 / 0 / 0 Регистрация: 22.05.2017 Сообщений: 2
	22.05.2017, 20:55 [ТС]	3
	Спасибо! 0