Даны четыре целых числа, одно из которых отлично от трех других, равных между собой....

Question

Даны
четыре целых числа, одно из которых отлично от трех других, равных между собой.
Вывести порядковый номер этого числа

Comments

задача на Delphi(Pascal)

Answer 1

Var a, b, c, d: integer;
begin
     readln(a, b, c, d);
     if (a <> b) then
        if (a <> c) then writeln(1) else writeln(2)
           else if (c <> a) then writeln(3) 
                  else writeln(4);
end.

Вот так-то)