Nhập vào số tự nhiên 32123 kiểm tra tính đối xứng

Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535).

Kiểm tra xem số đó có đối xứng không.

Bài giải

Program bt3;

Uses crt;

Var n , k,i, max: integer;     
     s1,st:STRING;
    
    
Function IntToStr (I : Longint) : String;
Var S : String;
begin
 Str (I,S);
 IntToStr:=S;
end;

Begin
    Clrscr;

    Write('Nhap N:');                           

    Readln(N );
    
    st:= IntToStr(N);
    
    max:= 0;
        
    While ( N <> 0 ) do                      

    Begin     

            k := N mod 10;                      

            N :=  N div 10;  
            
            if max < K then max:=K;            

    End;        
    
    n:=length(st);

    s1:='';
    
    for i:=n downto 1 do s1:=s1+st[i];

    if st=s1 then writeln(max, ' doi xung:')

    else writeln(max, ' khong doi xung:');

    Readln;

End.