编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6,A+B=B+C.

Question

编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.

Answer 1

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.