作业帮编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 11:05:05
x){g66=۽ŶOvt?l'=ٜΧg?lG'g g3Z 6T<1LAQIY&H/eE`ZAD'*'?/=3,
dC%2l
J,--RR
i
Zf)
@Uyp`%
)e
@l30)( [ E%9y:fhy%hy)0f[u J P 0 @
W
编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
var
t,i:longint;
begin
for i:=100 to 999 do
if (i*10+6)mod 18=0 then
if i div 100=i mod 10 then
begin
writeln(i,'6');
inc(t);
end;
writeln('tot=',t);
end.