Здравствуйте! Обращаюсь к знатокам. Есть задача "По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N)."
Доп. условие: лимит времени 1с.
Но у меня не проходит несколько тестов из-за исчерпанного лимита времени. Как можно оптимизировать?
Код:
var fack:Int64;
i,n,k:Integer;
begin
fack:=1;
Readln(n);
for i:=2 to n do
fack:=fack*i;
for i:=1 to fack do
if fack mod i=0 then inc(k);
Writeln(k);
end.