Определить порядковый номер числа, отличного от остальных - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ