составьте программу,которая определяет какое из 3-х введенных с клавиатуры чисел

Составьте программку,которая определяет какое из 3-х введенных с клавиатуры чисел является средним.если среди чисел есть одинаковые,то вывести известие"ошибка"

Задать свой вопрос
1 ответ
Var a,b,c: integer;
begin
  write('числа: '); readln(a,b,c);
  if agt;b then swap(b,c);
  if clt;a then swap(a,c);
  if bgt;c then swap(b,c);
  if (a=b) or (b=c) then writeln('ошибка')
  else writeln('среднее: ',b);
end.

числа: 9 17 8
среднее: 9


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт