" GIÚP MK VS MK VOTE 5sao VÀ 50đ Ạ!!!! "lập trình pascal : số tự nhiên n đc gọi là số palindrom nếu cách viết thập phân của số đó là đối xứng vd:"2112;353" cho số tự nhiên nhỏ hơn 10000, hãy kiểm tra xem nó có phải số palindrom hay ko(lưu ý:ko dùng mản để giải quyết bài toán

var

 n,n1:temp:integer;

 begin

 repeat

 write(' nhap n : ');

readln(n);

 if ( n < 32000 ) and ( n > -32000) then break { break là lệnh dừng ngay vòng lập }

 until (1=1);

 n1:=0;

 temp:=n;  

while temp > 0 do  begin  n1:= n1 * 10 + temp mod 10;  temp:= temp div 10 ;

 end;

 if n1=n then write(' doi xung ') else write(' ko doi xung ');

 readln;

 end

@DL_Kashato

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

- Xây dựng số đảo từ việc dùng div, mod và phép nhân

- n div 10 : bỏ đi 1 số bên phải 

- n mod 10 : lấy đi 1 số bên phải

- dao * 10 + tam : dịch chuyển thập phân

- Biến tam dùng để lưu kết quả trung gian

- Biến luu để lưu kết quả n ban đầu

*Bảng trực quan : `n=123`

\begin{array}{|c|c|}\hline \texttt{n} & \texttt{n mod 10} & \texttt{dao*10+tam} & \texttt{n div 10}\\\hline \texttt{123} & \texttt{3} & \texttt{0 * 10 + 3 = 3} & \texttt{12} \\\hline \texttt{12} & \texttt{2} & \texttt{3 * 10 + 2 = 32} & \texttt{1} \\\hline \texttt{1} & \texttt{1} & \texttt{ 32 * 10 + 1 = 321} & \texttt{0(dừng)} \\\hline \hline\end{array}

*Code :

uses crt;
var n, dao, tam, luu: longint ;
begin
    clrscr;
    write('N = '); readln(n);
    luu := n ;
    tam := 0;
    while n <> 0 do 
         begin
        tam := n mod 10 ;

        dao := dao * 10 + tam ;
        
        n := n div 10 ;
         end ;
    if luu = dao then writeln(luu,' la so palindrom')
        else writeln(luu,' khong la so palindrom ');
end .