viết chương trình kiểm tra 1 xâu có đối xứng trục hay không

2 câu trả lời

uses crt;

var S:string;

      i,a:integer;

begin

readln(S);

a:=0;

for i:=1 to lenght(S) do

begin

n:=lenght(S)/2+i;

if S[i]=S[n] then a:=a+1;

end;

if lenght(S) mod 2=0 then

if lenght(S)/2=a then writeln('Co truc doi xung') else writeln('Ko doi xung') 

else if lenght(S) mod 2=1 then

if lenght(S) mod 2-1=a then writeln('Co truc doi xung') else writeln('Ko doi xung');

readln;

end.

$\text{Tham khảo}$ 

Câu hỏi trong lớp Xem thêm