Viết phương trình nhập vào một xâu , kiểm tra xâu đó có phải là xấu đối xứng không
2 câu trả lời
uses crt;
var i,x:byte;
s,p:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
x:=length(s);
p:='';
for i:=x downto 1 do p:=p+s[i];
if s=p then write('La xau doi xung') else write('La xau khong doi xung');
readln
end.
program bai_giai;
uses crt;
var s:string;
i,kt:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
kt:=1;
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then
begin
kt:=0; break;
end;
if kt=1 then write('DOI XUNG')
else write('KHONG DOI XUNG');
readln;
end.
Câu hỏi trong lớp
Xem thêm
