Đề dễ :D Nhập vào một số, biến đổi số đó thành một số đối xứng. Dữ liệu vào: - Số nguyên k là số chữ số - Số X có k chữ số.

Uses crt;
Var x: integer;
Function DX(x:integer):integer;
var so: integer;
Begin
    so:=0;
    Repeat
         so:=so*10 + x mod 10;
         x:= x div 10;
    Until x = 0;
    DX:=so;
End;
Begin
clrscr;
     Write('Nhap so X: '); Readln(X);
     Writeln('So doi xung cua so X la: ',DX(X));
     Readln;
End.