百度作业网问几道Pascal题目
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/08/11 18:04:04
问几道Pascal题目
1、求一个三位数,其各位数的立方和,等于该数.
2、求1!+2!+3!+4!+……+10!的值.
1、求一个三位数,其各位数的立方和,等于该数.
2、求1!+2!+3!+4!+……+10!的值.
1、
program xiti;
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
if a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d=i then
writeln(i:6);
end;
end.
2、program aa;
var ans,i:longint;
procedure work(n:longint);
var i,s:longint;
begin
s:=1;
for i:=1 to n do
s:=s*i;
ans:=ans+s;
end;
begin
ans:=0;
for i:=1 to 10 do work(i);
writeln(ans);
end.
没有调试过,你自己看看能不能吧……
program xiti;
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
a:=i div 1000;
b:=i div 100 mod 10;
c:=i div 10 mod 10;
d:=i mod 10;
if a*a*a*a+b*b*b*b+c*c*c*c+d*d*d*d=i then
writeln(i:6);
end;
end.
2、program aa;
var ans,i:longint;
procedure work(n:longint);
var i,s:longint;
begin
s:=1;
for i:=1 to n do
s:=s*i;
ans:=ans+s;
end;
begin
ans:=0;
for i:=1 to 10 do work(i);
writeln(ans);
end.
没有调试过,你自己看看能不能吧……