Вводятся 4 целых числа (a, b, c, d). известно, что одно из них отлично от 3 других, равных между собой. вывести это число. алгоритм должен выполнять НЕ БОЛЕЕ 2 ОПЕРАЦИЙ СРАВНЕНИЯ. НА ЯЗЫКЕ ПАСКАЛЬ.
program FindDifferentNumber; var a, b, c, d: integer; begin writeln('Enter four integers:'); readln(a, b, c, d); if a = b then begin if a = c then writeln(d) else writeln(c); end else if a = c then writeln(b) else writeln(a); end.
var
a, b, c, d: integer;
begin
writeln('Enter four integers:');
readln(a, b, c, d);
if a = b then
begin
if a = c then
writeln(d)
else
writeln(c);
end
else if a = c then
writeln(b)
else
writeln(a);
end.