1) viết ct hoán đổi giá trị của 2 biến x, y cho nhau mà không được dùng biến trung gian.
2) Viết ct nhập vào số nguyên gồm 4 chữ số. In ra màn hình số đó và ngược lại.
1) viết ct hoán đổi giá trị của 2 biến x, y cho nhau mà không được dùng biến trung gian.
2) Viết ct nhập vào số nguyên gồm 4 chữ số. In ra màn hình số đó và ngược lại.
Uses crt;
Var n:integer;
Begin
Clrscr;
Write(‘nhap so nguyen n= ‘);
Readln (n);
Writeln( ‘in so n = ‘,n);
Write (‘dao nguoc so n= ‘);
While n0 do begin
Write ( n mod 10);
N:= n div 10;
End;
Readln;
End.