Giúp mình với!python nha Bài 1. CATGHEP Cắt xâu kí tự,Một xâu kí tự được gọi là xâu đối xứng nếu ta đọc xâu này từ trái sang phải hoặc từ phải sang,trái là như nhau. Chẳng hạn xâu 'abcba' là một xâu đối xứng.,Cho trước một xâu kí tự S không chứa kí tự trống (dấu cách). Hãy tìm cách cắt xâu S thành 2,xâu (2 xâu này phải khác xâu rỗng) là P và Q (với P là phần đầu, Q là phần còn lại của xâu S) sao,cho khi ghép xâu P vào sau xâu Q ta được một xâu kí tự mới là xâu kí tự đối xứng.,Input: một xâu kí tự S (xâu S có không quá 255 kí tự),Output: một số nguyên K là độ dài của xâu P. Trường hợp không có cách cắt nào thỏa mãn yêu,cầu đề bài thì ghi ra một số 0. Trường hợp có nhiều cách cắt thỏa mãn yêu cầu đề bài thì chọn cách,cắt sao cho độ dài của xâu P là nhỏ nhất.,Ví dụ:,

Input,Output,Giải thích
cbaabcd,3,"Có S = ''cbaabcd'' ta cắt thành 2 xâu $P=^\prime cba^\prime;Q=^\prime abcd^\prime.$ Khi đó ghép xâu P vào sau xâu Q ta
được xâu kí tự: 'abcdcba' là một xâu đối xứng"

,chuyentin.pro - Học chuyên tin trực tuyếnPage 20,abaabaabaaba 3

Question

Giúp mình với!python nha Bài 1. CATGHEP Cắt xâu kí tự,Một xâu kí tự được gọi là xâu đối xứng nếu ta đọc xâu này từ trái sang phải hoặc từ phải sang,trái là như nhau. Chẳng hạn xâu 'abcba' là một xâu đối xứng.,Cho trước một xâu kí tự S không chứa kí tự trống (dấu cách). Hãy tìm cách cắt xâu S thành 2,xâu (2 xâu này phải khác xâu rỗng) là P và Q (với P là phần đầu, Q là phần còn lại của xâu S) sao,cho khi ghép xâu P vào sau xâu Q ta được một xâu kí tự mới là xâu kí tự đối xứng.,Input: một xâu kí tự S (xâu S có không quá 255 kí tự),Output: một số nguyên K là độ dài của xâu P. Trường hợp không có cách cắt nào thỏa mãn yêu,cầu đề bài thì ghi ra một số 0. Trường hợp có nhiều cách cắt thỏa mãn yêu cầu đề bài thì chọn cách,cắt sao cho độ dài của xâu P là nhỏ nhất.,Ví dụ:,

Input,Output,Giải thích
cbaabcd,3,"Có S = ''cbaabcd'' ta cắt thành 2 xâu $P=^\prime cba^\prime;Q=^\prime abcd^\prime.$ Khi đó ghép xâu P vào sau xâu Q ta 
 được xâu kí tự: 'abcdcba' là một xâu đối xứng"

,chuyentin.pro - Học chuyên tin trực tuyếnPage 20,abaabaabaaba 3

Accepted Answer

program bai_giai;
var f,g:text;
s,P,Q,st1:string;
i,d,j:byte;
function ktdx(st:string):boolean;
var k:byte;
str:string;
begin
str:='';
for k:=length(st) downto 1 do str:=str+st[k];
if st=str then exit(true) else exit(false);
end;
BEGIN
Assign(f,'XKT.INP'); reset(f);
Assign(g,'XKT.OUT'); rewrite(g);
readln(f,s);
d:=0; P:='';
for i:=1 to length(s)-1 do
begin
P:=s[i]+P; Q:='';
for j:=length(s) downto i+1 do
Q:=Q+s[j];
st1:=P+Q;
if ktdx(st1) then
begin
d:=i; break;
end;
end;
write(g,d);
close(f); close(g);
END.