Tin học 11: Viết chương trình nhập vào 1 xâu, kiểm tra xem xâu có phải là xâu đối xứng không

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

1. uses crt;
   var i,kt:byte; s:string;
   begin
   clrscr;
      write(‘Nhap vao 1 xau: ‘);readln(s);
      kt:=0;
      for i:=1 to length(s) div 2 do 
         if s[i]<>s[length(s)-i+1] then kt:=1;
      if kt=0 then writeln(‘Day la xau doi xung’) else
         writeln(‘Day khong la xau doi xung’);
   readln
   end.

   Bình luận

2. program kiem_tra_xau_doi_xung;

   uses crt;

   var s, s1: string

         i:integer;

   begin

         clrscr;

         writeln(‘Nhap vao xau s: ‘);

         readln(s);

         for i:=length(s) downto 1 do

          s1:=s1+s[i];

          if (s1=s) then

                writeln(‘Xau doi xung’)

          else

                writeln(‘Xau khong doi xung’);

           readln;

   end.

    Cho mình CTLHN nha

   Bình luận