神马品牌网崇州白头镇是什么部队:pascal题目!!
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 10:58:04
s e n d
+ m o r e
----------
m o n e y
时间不超过两秒
+ m o r e
----------
m o n e y
时间不超过两秒
var s,e,n,d,m,o,r,y,send,more,money:integer;
begin
for s:=1 to 9 do
for e:=0 to 9 do
for n:=0 to 9 do
for d:=0 to 9 do
for m:=1 to 9 do
for o:=0 to 9 do
for r:=0 to 9 do
for y:=0 to 9 do begin
send:=s*1000+e*100+n*10+d;
more:=m*1000+o*100+r*10+e;
money:=m*10000+o*1000+n*100+e*10+y
if money=send+more then begin
writeln(' ',s,' ',e,' ',n,' ',d);
writeln('+',m,' ',o,' ',r,' ',e);
writeln('----------');
writeln(m,' ',o,' ',n' ',e,' 'y);
writeln;
end;
end;
end.