11 lines
354 B
ObjectPascal
11 lines
354 B
ObjectPascal
// Перемена местами значений двух переменных с использованием третьей
|
||
var x,y: real;
|
||
|
||
begin
|
||
write('Введите x,y: ');
|
||
readln(x,y);
|
||
var v: real := x; // вспомогательная переменная
|
||
x := y;
|
||
y := v;
|
||
writeln('Новые значения x,y: ',x,' ',y);
|
||
end. |