作业帮 > 综合 > 作业

用Pascal编程求满足下列条件的三位数:该三位数等于它数字的立方和.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/19 20:42:04
用Pascal编程求满足下列条件的三位数:该三位数等于它数字的立方和.
program dd;
var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 10 do
for c:=0 to 10 do
if a*a*a+b*b*b+c*c*c=a*100+b*10+c then writeln(a*100+b*10+c);
end.