Упорядочение двух значений по возрастанию на Pascal

Упорядочение двух значений по возрастанию...

var 
  x,y: integer;
  v: integer;
begin
  write('Введите x,y: ');
  readln(x,y);
  if x>y then
  begin
    v := x;
    x := y;
    y := v
  end;
  writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.



Просмотров: 5706
10.02.2015, 08:58 -

Категория: Статьи » Программирование » Pascal