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