Tin học 11: Viết chương trình nhập vào 1 xâu, kiểm tra xem xâu có phải là xâu đối xứng không
2 câu trả lời
uses crt;
var i,kt:byte; s:string;
begin
clrscr;
write('Nhap vao 1 xau: ');readln(s);
kt:=0;
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then kt:=1;
if kt=0 then writeln('Day la xau doi xung') else
writeln('Day khong la xau doi xung');
readln
end.
program kiem_tra_xau_doi_xung;
uses crt;
var s, s1: string
i:integer;
begin
clrscr;
writeln('Nhap vao xau s: ');
readln(s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
if (s1=s) then
writeln('Xau doi xung')
else
writeln('Xau khong doi xung');
readln;
end.
Cho mình CTLHN nha
