Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные

[jager666]

Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные. При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
Решить нужно с помощью оператора цикла. Заранее спасибо.

[brunis]

var i,j,l:byte;
begin
  For i:=0 to 9 do
    For l:=0 to 9 do
      For j:=0 to 9 do
        if (i<>l) and (l<>j) and(i<>j) then
          if l=i-j then writeln(i:3,l:3,j:3);
  readln;
end.

[BDA]

var
  i, j: byte;

begin
  for i := 0 to 9 do
    for j := 0 to 9 do
      if (i <> abs(i - j)) and (j <> abs(i - j)) and (i <> j) then 
        writeln(i, abs(i - j), j);   
  readln;
end.

brunis:
1) разность может быть отрицательной
2) не нужно делать еще 1 вложенный цикл, когда известно значение средней цифры

Без учета 1 замечания Ваше решение вполне приемлемо по времени.
Но можно пойти еще дальше:
Число имеет вид A |A-B| B
A - 1-я цифра
|A-B| - 2-я цифра
B - 3-я цифра
Требуется, чтобы A <> B и A <> |A-B| и B <> |A-B|
Из всех этих условий получим:
A <> 0
B <> 0
A <> B
B <> A/2
B <> 2A
Возможно, можно написать еще более быстрое решение, опираясь на полученные неравенства (а может и нет ).

[eoln]

Вот немного быстрее без использования условий и с изменяемыми границами циклов

var
  i, j: byte;

begin
  for j := 0 to 9 do writeln(j, 0, j);
  
  for i := 1 to 9 do
    for j := 0 to 9-i do begin
      writeln(j, i, j+i);  
      writeln(j+i, i, j); 
    end;
  readln;
end.

[BDA]

eoln, безусловно быстрее, но

все три цифры разные

[eoln]

Точно, не заметил условие

var
  i, j: byte;

begin  for i := 1 to 8 do
    for j := 1 to 9-i do if (i<>j) then begin
      writeln(j, i, j+i);  
      writeln(j+i, i, j); 
    end;
  readln;
end.