作业帮折腾“阶乘”pascal内容：输入一个整数n（1000>=n>=0）输出n的阶乘各个位的数相加的和y,最后再输出T或F,代表y是否为素数.输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 04:43:51
折腾“阶乘”pascal内容：输入一个整数n（1000>=n>=0）输出n的阶乘各个位的数相加的和y,最后再输出T或F,代表y是否为素数.输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再
折腾“阶乘”pascal
内容：
输入一个整数n（1000>=n>=0）
输出n的阶乘各个位的数相加的和y,最后再输出T或F,
代表y是否为素数.
输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再输出对y是否为素数的判断,
是为T否为F.
27F各个测试点1s
折腾“阶乘”pascal内容：输入一个整数n（1000>=n>=0）输出n的阶乘各个位的数相加的和y,最后再输出T或F,代表y是否为素数.输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再
var a:array[0..3000]of longint;
i,j,n,l,tot:longint;
function pd(i:longint):boolean;
var j:longint;
begin
if i9 do
begin
inc(a[l+1],a[l]div 10);
a[l]:=a[l]mod 10;
inc(l);
end;
end;
for j:=l downto 1 do
inc(tot,a[j]);
write(tot);
if pd(tot) then
write('T')
else
write('F');
end;
end.