Сравнение чисел без использования оператора if

[Serge_Bliznykov]

да нет тут никакого противоречия.
я согласен с мнением Hacker19_90 и выделенной им цитатой из задания!
только ДВА числа равны, это противоречит утверждению ТРИ числа РАВНЫ.

я понимаю условие только два числа равны между собой == два числа из трёх равны между собой, и НЕ РАВНЫ оставшемуся третьему числу (имхо,именно так трактуется смысл словосочетания "только два числа" )

и, кстати, я бы записал решение так:

var x,y,z,t : integer;
begin
  Write('Введите X, Y, Z :');
  Readln(x,y,z);

  t := ord(not( (x=y) and (x<>z) or (x=z) and (x<>y)
                 or (y=z) and (y<>x)   )) ;

  WriteLn(t);
  readln;
end.

[s-andriano]

Сообщение от Serge_Bliznykov

и, кстати, я бы записал решение так:

Решения эквивалентны:

function b1(a,b,c : integer) : integer;
begin
  b1 := byte(((a=b) and (b=c)) or ((a <> b) and (b <> c) and (a <> c)));
end;

function b2(x,y,z : integer) : integer;
begin
  b2 := ord(not( (x=y) and (x<>z) or (x=z) and (x<>y) or (y=z) and (y<>x)   )) ;
end;

var
  i,j,k : integer;
begin
  for i := 1 to 3 do
    for j := 1 to 3 do
      for k := 1 to 3 do
        writeln(i:2,j:2,k:2,' ',b1(i,j,k):2, b2(i,j,k):2,b1(i,j,k)=b2(i,j,k):8);
end.