Упорядочение двух значений по возрастанию на 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.
10.02.2015, 08:58 -
Категория: Статьи » Программирование » Pascal