число из трёх разных чисел отняли от числа ,которое составлено ...

Нюра

Не уверен, что написал все верно, так как программа смогла найти только одну такую пару чисел, но все же...

 

954 - 459 = 495

 

 

program P1;usescrt;vari,j,k,n,x,y,z : integer;begin

clrscr;

for i := 1 to 9 do begin

for j := 0 to 9 do begin

if i = j then continue;

for k := 0 to 9 do begin

if (j = k) or (i = k) then continue;

if k*100+j*10+i < 100 then continue;

n := (i*100+j*10+k) - (k*100+j*10+i);

if n > 100 then begin

x := n div 100; y := (n - x * 100) div 10; z := n - (x*100+y*10);

if ((x = i) and (y = j) and (z = k)) or ((x = i) and (y = k) and (z = j)) or ((x = j) and (y = i) and (z = k)) or ((x = j) and (y = k) and (z = i)) or ((x = k) and (y = j) and (z = i)) or ((x = k) and (y = i) and (z = j)) then

writeln(i*100+j*10+k,' - ',k*100+j*10+i,' = ',n);

end;

end;

end;

end;

readln; readln;

end.