Var u,s,r,a:byte; ussr,usa,peace:integer; begin for u:=1 to 9 do for s:=0 to 9 do for r:=0 to 9 do if (u<>s)and(u<>r)and(s<>r) then begin ussr:=u*1000+s*100+s*10+r; for a:=0 to 9 do if (a<>u)and(a<>s)and(a<>r) then begin usa:=u*100+s*10+a; peace:=ussr+usa; if (peace>9999)and(peace div 100 mod 10 = a) and(peace div 1000 mod 10 = peace mod 10) then writeln(u,s,s,r,'+',u,s,a,' = ',peace); end; end; end.
Answers & Comments
Verified answer
Var u,s,r,a:byte;ussr,usa,peace:integer;
begin
for u:=1 to 9 do
for s:=0 to 9 do
for r:=0 to 9 do
if (u<>s)and(u<>r)and(s<>r) then
begin
ussr:=u*1000+s*100+s*10+r;
for a:=0 to 9 do
if (a<>u)and(a<>s)and(a<>r) then
begin
usa:=u*100+s*10+a;
peace:=ussr+usa;
if (peace>9999)and(peace div 100 mod 10 = a)
and(peace div 1000 mod 10 = peace mod 10)
then writeln(u,s,s,r,'+',u,s,a,' = ',peace);
end;
end;
end.
Результат:
9338+932 = 10270
9447+943 = 10390