wish 2012-07-20 18:09:00
点我顶贴
收藏
删除
过的人来拿分
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.
#4 qyk130@2010-10-27 06:30:00
18502
回复
删除
var
n,i,j:longint;
t:real;
begin
readln(n);
t:=1;
for i:=1 to n do
begin
t:=t*i;
while t>10 do t:=t/10;
end;
write(trunc(t));
end.
过了