Đáp án + Giải thích các bước giải:

#include <bits/stdc++.h>
using namespace std;

int main() 
{
         string s,a;
         cin>>s;
         a=s;
         for(int i=s.size()-1;i>=0;i--) 
         {
                  a=a+s[i];
         }
         if(a==s+s) 
         cout<<"YES";
         else cout<<"NO";
         return 0;
}

Tin học 8 - Bài tập về xâu

BÀI TẬP VỀ XÂU

Bài tập 6.1: Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên một dòng.

Uses Crt;

Var St:String;

Procedure XoaTrangThua(Var St:String);

Begin

 {Xóa các ký tự trắng ở đầu xâu}

 While St[1]=#32 Do Delete(St,1,1);

 {Xóa các ký tự trắng ở cuối xâu}

 While St[Length(St)]=#32 Do Delete(St,Length(St),1);

 {Xóa các ký tự trắng ở giữa xâu}

 While POS(#32#32,St)0 Do Delete(St,POS(#32#32,St),1);

End;

Begin

 Write(‘Nhap xau St: ‘); Readln(St);

 XoaTrangThua(St);

 St:=St+#32;

 Writeln(‘Liet ke cac tu trong xau: ‘); 

 While POS(#32,St)0 Do

 Begin

 Writeln(Copy(St,1,POS(#32,St)));

 Delete(St,1,POS(#32,St));

 End;

 Readln;

End.