求所有满足条件的四位数 这四位数是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 b<>a then for c:=0 to 9 do if (c<>a) and (c<>b) then for d:=0 to 9 do if (d<>a) and (d<>b) and (d<>c) then
begin
tf:=true;
if (a*1000+b*100+c*10+d) mod 11<>0 then tf:=false;
if b+c<>a then tf:=false;
if b*10+c<>sqr(trunc(sqrt(b*10+c))) then tf:=false;
if tf then writeln(a*1000+b*100+c*10+d);
end;
end.
运行结果是9361和9812。

——百度知道团队pas世界欢迎你加入!


Copyright © 2009-2011 All Rights Reserved.