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

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.
Bạn thấy bài viết này như thế nào?: 
Average: 8.8 (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

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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

 
Làm emoticon có hình gương mặt bằng Skype Humoticons

Làm emoticon có hình gương mặt bằng Skype Humoticons

Là một ứng dụng trên Facebook, Skype Humoticons giúp người dùng tạo biểu tượng để sử dụng như các emoticon thông thường.

Giới thiệu thủ thuật thuyết trình bằng Powerpoint 2015

Microsoft Powerpoint tích hợp trong bộ Office là một phần mềm thông dụng nhất hiện nay 

Drupal 8 Module Development, Phần 3 - viết Plugins

As with any new version of Drupal, a number of contributed modules will be refactored, and pulled into core.

Công ty diệt chuột T&C

 

Diet con trung