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

Формулировка задачи:

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

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.

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

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

textual
                            Листинг программы 
                        

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

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

14 голосов , оценка 3.857 из 5

Похожие ответы