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.
20 + 0 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

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

 
Anchor Text

Anchor Text

Anchor text is the visible characters and words that hyperlink display when linking to another document or location on the web

Google Notebook Sẽ Sớm Bị Đóng Cửa Và Xuất Dữ Liệu Sang Google Documents

Google Notebook Sẽ Sớm Bị Đóng Cửa Và Xuất Dữ Liệu Sang Google Documents

Vậy là cuối cùng dịch vụ lưu trữ ghi chép trực tuyến miễn phí Google Notebook (một trong những dịch vụ được ra đời từ Google Labs) sẽ sớm bị đóng của.

14 cách thu thập danh sách email

14 cách thu thập danh sách email

Có rất nhiều cách để thu thập địa chỉ email của khách hàng, phục vụ cho chiến dịch email marketing. Tôi xin đưa ra một số cách hiệu quả giúp bạn có thể xây dựng danh sách email cho riêng mình.

Tomdesgin.vn

 

Drupal Services