Предмет: Информатика,
автор: devochka1234
поменять местами значения х и у не используя дополнительную переменную.(Pascal)
Ответы
Автор ответа:
0
Var x,y:integer;
Begin
x:=20;
y:=40;
x:=x+y;
y:=x-y;
x:=x-y;
Write (x,' ',y); End.
Begin
x:=20;
y:=40;
x:=x+y;
y:=x-y;
x:=x-y;
Write (x,' ',y); End.
Интересные вопросы
Предмет: Другие предметы,
автор: tamirlankapishev7
Предмет: История,
автор: alievadjamilya1985
Предмет: Қазақ тiлi,
автор: nraliajbekly
Предмет: Алгебра,
автор: 777Alexey777