折腾“阶乘”pascal
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/19 08:32:31
折腾“阶乘”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
![折腾“阶乘”pascal](/uploads/image/z/15128187-51-7.jpg?t=%E6%8A%98%E8%85%BE%E2%80%9C%E9%98%B6%E4%B9%98%E2%80%9Dpascal)
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.