Ввести три числа 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.
Добавлено через 47 секунд Ах соль в том то что когда Я вставляю строчку для выведения сообщения у меня не компилится вовсе!(

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

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

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы