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: 9.5 (2 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

 
Hướng dẫn nâng cấp Frontend Toolset với Grunt và LibSass

Hướng dẫn nâng cấp Frontend Toolset với Grunt và LibSass

Learn how you can leverage Grunt and LibSass as groundwork to improve your Frontend Development process

5 Trang web tuyệt vời để du lịch tại chỗ

5 Trang web tuyệt vời để du lịch tại chỗ

Chỉ cần có một chiếc máy tính được kết nối Internet là bạn có thể du lịch ảo ngay.

Chrome lần đầu 'ngang hàng' với Firefox

Chrome lần đầu 'ngang hàng' với Firefox

Trình duyệt mới xuất hiện 2 năm của Google lần đầu tiên đuổi kịp Firefox và dự kiến với đà tăng trưởng này, nó sẽ trở thành á quân trong tháng 11.

Tomdesgin.vn

 

Drupal Services