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

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

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

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

Листинг программы

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.

Объяснение кода листинга программы

Создаются переменные: 'a', 'b' и 'c' типа integer.
Выводится сообщение Введите 3 числа:, после чего пользователь вводит три числа, которые присваиваются переменным 'a', 'b' и 'c'.
Происходит проверка:
- Если 'a' равно 'b', то выводится 3
- Иначе, если 'a' равно 'c', то выводится 2
- В остальных случаях выводится 1

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы