作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/16 01:58:27
编程求满足下列条件的所有四位数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.