Tin học Xâu

[khanhdz2004]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Các bạn cho mình xin chương trinh kiểm tra xâu song song nha các bạn!
Mình xin chân thành cảm ơn!!

 

[Deathheart]

Các bạn cho mình xin chương trinh kiểm tra xâu song song nha các bạn!
Mình xin chân thành cảm ơn!!

xâu song song là xâu đối xứng hả bạn ? cho 1 vd đi r mình làm cho

 

[khanhdz2004]

Đây bạn ơi
Ví dụ:
abab là một xâu song song;
a không là xâu song song
abba không là xâu song song.
Xin cậu giúp mình với mình đang rất cần.
Bài này yêu cầu phải xét ba xâu một lúc nhé!!

 

[Deathheart]

var  s,s1,s2:string;
begin
     write('nhap xau s: '); readln(s);
     if (length(s) mod 2)<>0 then write('xau s khong phai la xau doi xung')
     else
     begin
          s1:=copy(s,1,length(s) div 2);
          s2:=copy(s,(length(s) div 2)+1, length(s) div 2);
          if s1=s2 then write('xau s la xau doi xung')
          else write('xau s khong phai la xau doi xung');
     end;
     readln;
     readln;
end.