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

fvgszfdgsd 1年前 已收到1个回答 举报

浪子62 幼苗

共回答了12个问题采纳率:91.7% 举报

program dd;var a,b,c:integer;beginfor 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.

1年前

9
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.051 s. - webmaster@yulucn.com