Данычетыре целых числа, одно из которых отлично от 3-х других, равных

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

Задать свой вопрос
Никитка
задача на Delphi(Pascal)
1 ответ
Var a, b, c, d: integer;
begin
     readln(a, b, c, d);
     if (a lt;gt; b) then
        if (a lt;gt; c) then writeln(1) else writeln(2)
           else if (c lt;gt; a) then writeln(3) 
                  else writeln(4);
end.

Вот так-то)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт