Question

Ввести с клавиатуры 4 целых числа при этом 3 из них одинаковые , а 1 отличается ,вывести на экран отличающегося числа Pascal ABC

Answer 1

Var a,b,c,d:integer;
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.

Answer 2

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

program FindDifferentNumber;
var
  num1, num2, num3, num4: integer;
begin
  writeln('Введите 4 целых числа:');
  readln(num1, num2, num3, num4);
  
  if (num1 = num2) and (num1 = num3) then
    writeln('Отличающееся число: ', num4)
  else if (num1 = num2) and (num1 = num4) then
    writeln('Отличающееся число: ', num3)
  else if (num1 = num3) and (num1 = num4) then
    writeln('Отличающееся число: ', num2)
  else
    writeln('Отличающееся число: ', num1);
end.

Эта программа запрашивает у пользователя ввод четырех целых чисел и затем проверяет, какое из них отличается от остальных. Результат выводится на экран.

Например, если пользователь вводит числа 5, 5, 3, 5, программа выведет "Отличающееся число: 3".

Обратите внимание: Язык Pascal ABC не является широко распространенным языком программирования, и информация о нем в поисковых результатах была ограничена. Поэтому, я предоставил вам код на основе моего знания языка Pascal, но рекомендую вам также обратиться к документации или другим ресурсам, чтобы получить более подробную информацию о языке Pascal ABC.