program rqnoj_499(input, output);
var
N, i: Longint;
Q: Extended;
begin
readln(N);
Q := 0;
for i := 1 to N do
Q := Q + ln(i);
while Q > ln(10) do
Q := Q - ln(10);
writeln(trunc(exp(Q)))
end.
'ln'什么意思?
n,i,j:longint;
t:real;
readln(n);
t:=1;
for i:=1 to n do
t:=t*i;
while t>10 do t:=t/10;
end;
write(trunc(t));
过了
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0052 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.