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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

Borland Pascal 7.0 uses Crt; var a,b,c,d:integer; begin ClrScr; Read(a,b,c,d); if a<>b then if b=c then Writeln(1) else Writeln(2) else if b=c then Writeln(4) else Writeln(3); ReadKey end.