谁会解决pascal语言问题
答案:3 悬赏:80 手机版
解决时间 2021-05-15 04:58
- 提问者网友：我是我
- 2021-05-14 17:02
求出所有的三位数XYZ，它除以11所得余数等于他的三個数字的平方和。
最佳答案
- 五星知识达人网友：纵马山川剑自提
- 2021-05-14 17:15
仅仅解释一下楼上的答案
var x,y,z:integer;
begin
for x:=1 to 9 do {用x表示百位上的数字}
for y:=0 to 9 do {用y表示十位上的数字}
for z:=0 to 9 do {用z表示个位上的数字}{三层嵌套循环}
begin
if (100*x+10*y+z) mod 11=x*x+y*y+z*z then writeln(x,y,z); {如果这个数(100×x+10×y+z，即那个三位数）符合这个要求，则输出这个三位数}
end;
end.
全部回答
- 1楼网友：怙棘
- 2021-05-14 19:54
是不是就是'000'~'999'范围内寻找符合条件的数？
- 2楼网友：从此江山别
- 2021-05-14 18:54
搜索问题，数据量小，直接全搜。
program sws;
var x,y,z:integer;
begin
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
begin
if (100*x+10*y+z) mod 11=x*x+y*y+z*z then writeln(x,y,z);
end;
end.
程序运行后结果有2个：100，101.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯