Hãy cho biết chữ số lớn nhất 3452 của số tự nhiên vừa nhập

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

Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.

Ví dụ 3452 có max là : 5

Bài giải

Program bt3;

Uses crt;

Var n , s , k, max: integer;     
    n1,temp:integer;                     

Begin

    Write('Nhap N:');                           

    Readln(N );                                        

    S := 0;
    
    max:= 0;
        
    While ( N <> 0 ) do                      

    Begin     

            k := N mod 10;                      

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

    End;
    

    writeln(max,' so lon nhat');
    

    Readln;

End.