Question

вводятся 4 целых числа (a, b, c, d). известно, что одно из них отлично от 3 других, равных между собой. вывести это число. алгоритм должен выполнять НЕ БОЛЕЕ 2 ОПЕРАЦИЙ СРАВНЕНИЯ. НА ЯЗЫКЕ ПАСКАЛЬ.

Answer 1

begin

 var a := ReadInteger();

 var b := ReadInteger();

 var c := ReadInteger();

 var d := ReadInteger();

 if a = b then

   if c = a then Print(d)

   else Print(c)

 else

 if c = a then Print(b)

 else Print(a)

end.

Answer 2

Для решения этой задачи на языке Pascal с не более чем 2 операциями сравнения, можно воспользоваться следующим алгоритмом:

1. Сравните числа a и b.
2. Если a равно b, то сравните c с a. Если они тоже равны, то выводите d (так как d отличается от остальных).
3. Если c не равно a и b, значит, оно равно d, так как одно число отличается от остальных трех, и оно не a и не b.
4. В противном случае, если c равно a, значит, b отличается от остальных трех чисел.

Вот соответствующий код на языке Pascal:

pascalCopy code
program FindUniqueNumber;
var
  a, b, c, d: integer;
begin
  // Вводим значения a, b, c и d
  writeln('Введите четыре целых числа: ');
  readln(a, b, c, d);
  
  // Сравниваем a и b
  if a = b then
  begin
    // Сравниваем c с a
    if c = a then
      writeln('Уникальное число: ', d)
    else
      writeln('Уникальное число: ', c);
  end
  else
  begin
    // Сравниваем c с a
    if c = a then
      writeln('Уникальное число: ', b)
    else
      writeln('Уникальное число: ', a);
  end;
end.

Пожалуйста, учтите, что ввод и вывод чисел может быть организован по-разному в вашей среде разработки, в зависимости от того, используете ли вы консольный ввод/вывод или другие методы ввода/вывода.