freepascle求一些四位数,百位数字都是3,十位数字都是6,并且它们既能被2整除,又能被3整除,求这样的四位数中最大的和

Question

free pascle 求
一些四位数,百位数字都是3,十位数字都是6,并且它们既能被2整除,又能被 3整除,求这样的四位数中最大的和

Answer 1

...到底是最大,还是‘的和’.
var
i,j,s:longint;
begin
s:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
if (j mod 2=0)and((9+i+j)mod 3=0) then
s:=s+360+i*1000+j;
end;
writeln(s);
end.
这是求和的
var
i,j:longint;
begin
for i:=9 downto 1 do
for j:=9 downto 0 do
begin
if (j mod 2=0)and((9+i+j)mod 3=0) then
begin
writeln(360+i*1000+j);
exit;
end;
end;
end.
这是求最大的