Придумайте свой алгоритм обмена значениями числовых переменных a и b

Таких алгоритмов три. 1. традиционный, с использованием промежуточной ячейки c. c: =a; a: =b; b: =c; 2. на базе сложения и вычитания b: =a+b; a: =b-a; b: =b-a; 3. на базе операции "исключающее или" a: =a xor b; b: =a xor b; a: = a xor b;

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.