Поменять местами значения переменных А и В не используя вспомогательную переменную — Pascal(Паскаль)

uses crt;
var
a,b:longint;
begin
clrscr;
write(' :=');readln(a);
write('b:=');readln(b);
if a<b then
 begin
 b:=b-a;
 a:=a+b;
 b:=a-b;
 end
 else begin
 a:=a-b;
 b:=b+a;
 a:=b-a;
 end;
 write('a=',a,' b=',b);
readkey;
end.

Leave a Comment

9 + 1 =