Viết ct nhập xâu từ bàn phím, kiểm tra xâu đó có đối xứng không. Trong đó có sử dụng hàm để kiểm tra xâu đối xứng.
2 câu trả lời
uses crt;
var s:string;
function dx(s:string):boolean;
var i:longint;
begin
for i:=1 to length(s) do
if s[i]<>s[length(s)-i+1] then exit(false);
exit(true);
end;
begin
clrscr;
readln(s);
write(dx(s));
readln;
end.
uses crt;
var s:string;
function dx(s:string):boolean;
var i:longint;
begin
dx:=true;
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then dx:=false;
end;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
writeln(dx(s));
readln
end.
