Ввести три числа A, B, C. Вывести вначале наименьшее, а затем наибольшее из данных чисел

@KiU · Регистрация: 10.01.2014

Author24 — интернет-сервис помощи студентам

Ввести три числа A,B,C.Вывести вначале наименьшее, а затем наибольшее из данных чисел. Если пользователь введет числа так, что среди них нельзя будет определить одно наименьшее/наибольшее-выдать сообщение об ошибке

Delphi

var
  a,b,c,min,max:integer;
begin
  write('Vvedite 3 chisla a,b,c=');
  readln(a,b,c);
  if a<c then
    if a<b then
      min:=a
    else
      min:=b
  else if b<c then
    min:=b
  else
    min:=c;
  if a>c then
    if a>b then
      max:=a
    else
      max:=b
  else if c>b then
    max:=c
  else
    max:=b;
  writeln('Max=',max,' Min=',min);
 
  readln;
end.

Добавлено через 47 секунд
Ах соль в том то что когда Я вставляю строчку для выведения сообщения у меня не компилится вовсе!(

ВАСИЛЕВС · 12.01.2014, 18:05

Сообщение от KiU

нельзя будет определить одно наименьшее/наибольшее

Предполагаю, что тогда все три числа равны.

Pascal

if (a = b) and (b = c) then {если a = b, b = c => a = c}
 begin
  write('Ошибка ввода!');
  halt(1); {завершение программы}
 end;

Этот кусок кода можно вставить в строке 6, после ввода чисел.

	12.01.2014, 18:05

Опции темы

Ввести три числа A, B, C. Вывести вначале наименьшее, а затем наибольшее из данных чисел

Решение