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

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.
Bạn thấy bài viết này như thế nào?: 
Average: 3.3 (6 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Enter the characters shown in the image.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 

Kinh hoàng cảnh cao ốc ở TQ bốc cháy ngùn ngụt trong đêm

Tối ngày 15/12, một tòa nhà cao ốc giữa thành phố Quảng Châu, tỉnh Quảng Đông,Trung Quốc đã bốc cháy rừng rực trong suốt nhiều giờ đồng hồ.

Cài đặt Nginx với PHP5, PHP-FPM và hỗ trợ MySQL trên Ubuntu 11.10

Cài đặt Nginx với PHP5, PHP-FPM và hỗ trợ MySQL trên Ubuntu 11.10

Nginx (phát âm "engine x") là một chương trình server HTTP, một reverse proxy cũng như IMAP/POP3 proxy server miễn phí, mã nguồn mở, có hiệu năng cao.

Facebook đang tỏ ra mình là một cỗ xe tăng vượt mặt Apple

Facebook đang tỏ ra mình là một cỗ xe tăng vượt mặt Apple

Facebook đang tỏ ra mình là một cỗ xe tăng không thể ngăn cản khi hãng lần lượt tiến đánh các hạng mục chính của nhiều đối thủ như Google, Apple

Tomdesgin.vn

 

Drupal Services