圣诞节散步 2014-04-12 23:50:58
点我顶贴
收藏
删除
var
i,j,n:longint;
begin
readln(n);
j:=1;
for i:=2 to n do begin
j:=j*i;
repeat
if j mod 10=0 then j:=j div 10;
until j mod 10<>0;
j:=j mod 1000;
end;
repeat
if j mod 10=0 then j:=j div 10;
until j mod 10<>0;
j:=j mod 10;
writeln(j);
end.
70 啊!!!!!!!!!!!!!