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

Задание:

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

Решение:

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. Вот так-то)

Знаете другой ответ?

Отправить свой ответ