Определить порядковый номер числа, отличного от остальных - Pascal

Формулировка задачи:

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

Код к задаче: «Определить порядковый номер числа, отличного от остальных - Pascal»

textual
var
  a,b,c:integer;
begin
  write('Введите 3 числа:');readln(a,b,c);
  if a=b then writeln('3') else
    if a=c then writeln('2') else writeln('1');
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы