viết chương trình nhập một xâu kí tự, sau đó chỉ ra xem xâu đó có phải xâu đối xứng không

0 bình luận về “viết chương trình nhập một xâu kí tự, sau đó chỉ ra xem xâu đó có phải xâu đối xứng không”

1. Program BTT;
   Uses crt;
   Var St: String;
        i: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           For i:=length(St) downto 1 do Write(St[i]);
           Readln

   Bình luận

2. uses crt;
   var s,h:string; i:longint;
   begin
   clrscr;
      write(‘Nhap vao mot xau:’);readln(s);
      for i:=length(s) downto 1 do h:=h+s[i];
      if h=s then writeln(‘Day la xau doi xung’) else
      writeln(‘Day khong phai la xau doi xung’);
   readln
   end.

   /////////////////////////////////

   Test:

   

   Bình luận