Определить порядковый номер числа, отличного от остальных - 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.
Объяснение кода листинга программы
- Создаются переменные: 'a', 'b' и 'c' типа integer.
- Выводится сообщение
Введите 3 числа:
, после чего пользователь вводит три числа, которые присваиваются переменным 'a', 'b' и 'c'. - Происходит проверка:
- Если 'a' равно 'b', то выводится
3
- Иначе, если 'a' равно 'c', то выводится
2
- В остальных случаях выводится
1
- Если 'a' равно 'b', то выводится
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д