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

芥末芥末 1年前 已收到1个回答 举报

yanyi523 幼苗

共回答了13个问题采纳率:76.9% 举报

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.

1年前

5
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.028 s. - webmaster@yulucn.com