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.
Câu hỏi trong lớp
Xem thêm