Задание:
Напишите программу которая производит обмен значений переменных х и у если х большеу
Решение:
Если не использовать дополнительных переменных (для чисел) , то: Var x,y: integer; beginread (x,y); x: =x+y; y: =x-y; x: =x-y; writeln (x, ',y); end. Можно и через дополнительную переменную: Var x,y,s: integer; beginread (x,y); s: =x; x: =y; y: =s; writeln (x, ',y); end.
Знаете другой ответ?