求N!左边第二位的数字 pascal求N!左边第二位的数字Description求N!左边第二位的数字kInput只有一行且只有一个正整数:N ( 4

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 02:18:58
求N!左边第二位的数字pascal求N!左边第二位的数字Description求N!左边第二位的数字kInput只有一行且只有一个正整数:N(4求N!左边第二位的数字pascal求N!左边第二位的数字

求N!左边第二位的数字 pascal求N!左边第二位的数字Description求N!左边第二位的数字kInput只有一行且只有一个正整数:N ( 4
求N!左边第二位的数字 pascal
求N!左边第二位的数字
Description
求N!左边第二位的数字k
Input
只有一行且只有一个正整数:N
( 4

求N!左边第二位的数字 pascal求N!左边第二位的数字Description求N!左边第二位的数字kInput只有一行且只有一个正整数:N ( 4
var
i,j,n,l,k,m,n:longint;
a:string;
begin
n:=1;
readln(l);
for i:=2 to l do
n:=n*i;
str(n,a);
j:=length(a);
m:=1;
for i:=1 to (j-1) do
m:=m*10;
k:=k div m;
k:=k mod 10;
writeln(k);
readln
end.