Viết phương trình nhập vào một xâu , kiểm tra xâu đó có phải là xấu đối xứng không

0 bình luận về “Viết phương trình nhập vào một xâu , kiểm tra xâu đó có phải là xấu đối xứng không”

1. uses crt;
   var i,x:byte;
       s,p:string;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      x:=length(s);
      p:=”;
      for i:=x downto 1 do p:=p+s[i];
      if s=p then write(‘La xau doi xung’) else write(‘La xau khong doi xung’);
      readln
   end.

   Bình luận