Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

Составьте программу сортировки по возрастанию значений трех переменных: A, B, C

Нашли ошибку? Напишите нам
5.0/5, Голосов: 1

Учебник по Информатике 9 класс Семакин

Составьте программу сортировки по возрастанию значений трех переменных: A, B, C.    
Program SORTING;
var A, B, C, D: real;
begin
readln(A,B,C);
if A>B
   then
      if B>C
      then begin D:=A; A:=C; C:=D end
      else
         if C<A
         then begin D:=A; A:=B; B:=C; C:=D end
         else begin D:=B; B:=A; A:=D end
   else
      if C<A
      then begin D:=B; B:=A; A:=C; C:=D end
      else
         if C<B
         then begin D:=B; B:=C; C:=D end;
writeln(A,', ',B,', ',C)
end.