> 其他 >
编程求满足下列条件的所有四位数ABCD的个数,该数是18的倍数,且D=6 ,A+B=B+C.
人气:382 ℃ 时间:2020-06-25 04:48:09
解答
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.
推荐
猜你喜欢
© 2025 79432.Com All Rights Reserved.
电脑版|手机版