编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 00:46:26
![编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.](/uploads/image/z/15204315-3-5.jpg?t=%E7%BC%96%E7%A8%8B%E6%B1%82%E6%BB%A1%E8%B6%B3%E4%B8%8B%E5%88%97%E6%9D%A1%E4%BB%B6%E7%9A%84%E6%89%80%E6%9C%89%E5%9B%9B%E4%BD%8D%E6%95%B0ABCD%E7%9A%84%E4%B8%AA%E6%95%B0%2C%E8%AF%A5%E6%95%B0%E6%98%AF18%E7%9A%84%E5%80%8D%E6%95%B0%2C%E4%B8%94D%3D6+%2CA%2BB%3DB%2BC.)
x){g66=۽ŶOvt?l'=ٜΧg?lG'gg3Z 6T<1LAQIY&H/eE`ZAD'*'?/=3,
dC%2l
J,--RR
i
Zf)
@Uyp`%
)e
@l30)( [ E%9y:fhy%hy)0f[uJP 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.