求所有满足条件的四位数 这四位数是11的倍数 a,b,c,d均是小于10的互不相等的自然数 b+c=a bc是完全平方数用pascal for 循环做!初学,求简单易懂.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/24 01:31:26
![求所有满足条件的四位数 这四位数是11的倍数 a,b,c,d均是小于10的互不相等的自然数 b+c=a bc是完全平方数用pascal for 循环做!初学,求简单易懂.](/uploads/image/z/1091842-34-2.jpg?t=%E6%B1%82%E6%89%80%E6%9C%89%E6%BB%A1%E8%B6%B3%E6%9D%A1%E4%BB%B6%E7%9A%84%E5%9B%9B%E4%BD%8D%E6%95%B0+%E8%BF%99%E5%9B%9B%E4%BD%8D%E6%95%B0%E6%98%AF11%E7%9A%84%E5%80%8D%E6%95%B0+a%2Cb%2Cc%2Cd%E5%9D%87%E6%98%AF%E5%B0%8F%E4%BA%8E10%E7%9A%84%E4%BA%92%E4%B8%8D%E7%9B%B8%E7%AD%89%E7%9A%84%E8%87%AA%E7%84%B6%E6%95%B0+b%2Bc%3Da+bc%E6%98%AF%E5%AE%8C%E5%85%A8%E5%B9%B3%E6%96%B9%E6%95%B0%E7%94%A8pascal+for+%E5%BE%AA%E7%8E%AF%E5%81%9A%21%E5%88%9D%E5%AD%A6%2C%E6%B1%82%E7%AE%80%E5%8D%95%E6%98%93%E6%87%82.)
求所有满足条件的四位数 这四位数是11的倍数 a,b,c,d均是小于10的互不相等的自然数 b+c=a bc是完全平方数用pascal for 循环做!初学,求简单易懂.
求所有满足条件的四位数 这四位数是11的倍数 a,b,c,d均是小于10的互不相等的自然数 b+c=a bc是完全平方数
用pascal for 循环做!
初学,求简单易懂.
求所有满足条件的四位数 这四位数是11的倍数 a,b,c,d均是小于10的互不相等的自然数 b+c=a bc是完全平方数用pascal for 循环做!初学,求简单易懂.
var
a,b,c,d:longint;
tf:boolean;
begin
for a:=1 to 9 do for b:=0 to 9 do if ba then for c:=0 to 9 do if (ca) and (cb) then for d:=0 to 9 do if (da) and (db) and (dc) then
begin
tf:=true;
if (a*1000+b*100+c*10+d) mod 110 then tf:=false;
if b+ca then tf:=false;
if b*10+csqr(trunc(sqrt(b*10+c))) then tf:=false;
if tf then writeln(a*1000+b*100+c*10+d);
end;
end.
运行结果是9361和9812.
——百度知道团队pas世界欢迎你加入!