напишите программу которая производит обмен значений переменных х и у если х больше у
Answers & Comments
garfild214
Program pr; uses crt; Var x, y, buf:integer; Begin Write('Введите x '); readln(x); Write('Введите y '); readln(y); if x>y then Begin buf:=x; x:=y; y:=buf; end; Writeln('x = ',x); Write('y = ',y); readln; end.
Answers & Comments
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
end.