Ответы и объяснения

Лучший Ответ!
2013-01-09T17:09:41+00:00

uses crt;
var
i,j,a,b,c,s:integer;
begin
clrscr;
for i:=1 to 9 do begin
for j:=1 to 9 do begin
if i<>j then begin
s:=(i+i*10+i*100)+(j+j*10+j*100);
if ((s mod 100) div 10 = (s div 100) mod 10) and ((s div 100) mod 10=j) then begin
if (s mod 10=s div 1000) and ((s mod 10)<>j) and ((s mod 10)<>i) then
writeln(i, ' ', j, ' ', (s mod 10));
end;
end;
end;
end;
end.