[M.A.D.M.A.N.]

Сообщение от Aristarh Dark

M.A.D.M.A.N., а не наоборот?

Именно в такой последовательности "Clear Interrupt-Enable Flag" и "Set Interrupt-Enable Flag".

В принципе второй цикл можно затолкать в первый.

Типа:

Код:

var fack:Int64;
 i, j,n,k:Integer;
 begin
 fack:=1;
 Readln(n);
for i:=2 to n do
begin
 for j := fack to fack * i do
  inc(k, integer(fack mod j=0));
 fack:=fack*i;
end;

 Writeln(k);
 end.