求所有满足条件的四位数 这四位数是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 循环做!
初学,求简单易懂.

求所有满足条件的四位数 这四位数是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世界欢迎你加入!