Nhập n cho biết nó có phải số đối xứng k

0 bình luận về “Nhập n cho biết nó có phải số đối xứng k”

1. * Gán thêm biến n phụ để khi xuất ra màn hình giá trị của n không đổi.

   * Dùng cách thường:

   uses crt;
   var n,n1,s:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      n1:=n;
      while n1<>0 do 
         begin
            s:=s*10+(n1 mod 10);
            n1:=n1 div 10;
         end;
      if n=s then writeln(n,’ la so doi xung’)
      else writeln(n,’ khong phai la so doi xung’);
      readln
   end.

   * Dùng xâu:

   uses crt;
   var s:string; n,i,t:longint; dx:boolean;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      dx:=true;
      str(n,s);
      for i:=1 to length(s) div 2 do 
         if s[i]<>s[length(s)-i+1] then dx:=false;
      if dx then writeln(n,’ la so doi xung’)
      else writeln(n,’ khong phai la so doi xung’);
      readln
   end.

   Bình luận

2. Code mình ở dưới ảnh nha

   

   Bình luận