Ответы
Ответ дал:
0
var
i, n: longint;ans: real;
begin
readln(n);
ans := 1;
for i := 1 to n do ans := ans * i;
writeln(ans);
end.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
11 лет назад
11 лет назад
11 лет назад