Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа
Даны
четыре целых числа, одно из которых отлично от трех других, равных между собой.
Вывести порядковый номер этого числа
Гость
Ответ(ы) на вопрос:
Гость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.
Вот так-то)
Не нашли ответ?
Похожие вопросы