Ответы
Ответ дал:
0
uses Crt;
var
i,p,n:longint;
begin
ClrScr;
Write('n='); Read(n);
p:=1;
for i:=2 to n do p:=p*i;
Writeln('n!=',p);
ReadKey
end.
var
i,p,n:longint;
begin
ClrScr;
Write('n='); Read(n);
p:=1;
for i:=2 to n do p:=p*i;
Writeln('n!=',p);
ReadKey
end.
Похожие вопросы
9 лет назад
10 лет назад