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

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 3.833 из 5
Похожие ответы