作业帮折腾“阶乘”pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/24 07:15:35
折腾“阶乘”pascal
内容：
输入一个整数n（1000>=n>=0）
输出n的阶乘各个位的数相加的和y,最后再输出T或F,
代表y是否为素数.
输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再输出对y是否为素数的判断,
是为T否为F.
27F各个测试点1s
内容：
输入一个整数n（1000>=n>=0）
输出n的阶乘各个位的数相加的和y,最后再输出T或F,
代表y是否为素数.
输入一个整数n（1000>=n>=0）10输出n的阶乘各个位的数相加的和y,最后再输出对y是否为素数的判断,
是为T否为F.
27F各个测试点1s
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.
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.