[Dmitry_DM]

Сообщение от M.A.D.M.A.N.

Код:

var fack:Int64;
 i,n,k:Integer;
 begin
 fack:=1;
 Readln(n);
asm
  cli
end
for i:=2 to n do
 fack:=fack*i;
 
for i:=1 to fack do
if fack mod i=0 then inc(k);
asm
  sti
end
 Writeln(k);
 end.

А это вообще на delphi Consol Application работает? У меня пишет, что странный код:

Код:

asm

и запускается только если добавить ; после end здесь

Код:

asm
  cli
end

что это?

Код:

cli

Код:

sti

Но при выполнении что-то очень быстро выдает, но не ответ.