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

 
Facebook "lên sóng" nhiều thay đổi giao diện mới

Facebook "lên sóng" nhiều thay đổi giao diện mới

Bằng chứng cho thấy mạng xã hội lớn nhất hành tinh đang nỗ lực hoàn thiện mình hơn nữa.

Các nhà nghiên cứu phá thành công khóa mã hóa an toàn bằng âm thanh

Các nhà nghiên cứu phá thành công khóa mã hóa an toàn bằng âm thanh

Mới đây, các nhà nghiên cứu tại đại học Tel Aviv và viện khoa học Weizmann (Israel) đã thành công trong việc giải mã một trong những thuật toán mã hóa an toàn nhất hiện nay là RSA 4096 bit bằng cách dùng microphone để lắng nghe một chiếc máy tính khi nó giải mã dữ liệu đã mã hóa.

New Samsung TV Ad Takes a Stab at iPhone Users

New Samsung TV Ad Takes a Stab at iPhone Users

Apple and Samsung have been involved in quite the court battle over the last 6 months. Apple accused Samsung of copying the trademarked design of its products, and since then, the two companies have been in and out of court.

Tomdesgin.vn

 

Drupal Services