Question

Составьте на Паскале программу упорядочения по возрастанию значений в трех переменных: X , Y , Z .

Answer 1

program Sorting;
var   X, Y, Z, Temp: Integer;
begin   write('Введите X: ');   readln(X);   write('Введите Y: ');   readln(Y);   write('Введите Z: ');   readln(Z);
  { Упорядочиваем переменные }   if X > Y then   begin     Temp := X;     X := Y;     Y := Temp;   end;
     if Y > Z then   begin     Temp := Y;     Y := Z;     Z := Temp;   end;
     if X > Y then   begin     Temp := X;     X := Y;     Y := Temp;   end;
  writeln('Упорядоченные значения: ', X, ' ', Y, ' ', Z);
     readln; end.