Viết chương trình nhập vào 1 xâu kí tự từ bàn phím. a) Tìm xâu đảo ngược của xâu đó. b) Nhập xâu S, nếu xâu vừa nhập không phải xâu đối xứng thì thêm vào bên trái xâu các kí tự sao cho xâu vừa nhập đó trở thành xâu đối xứng. VD: Xâu "abcded" --> "abcdedcba" Pascal nha
2 câu trả lời
a)
var s:string;
i:longint;
begin
write('Nhap xau: '); readln(s);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.
b)
var s,st:string;
i:longint;
begin
write('Nhap xau: '); readln(s);
for i:=length(s)-1 downto 1 do
st:=st+s[i];
if s=st then write('La xau doi xung') else
write('Xau doi xung la: ',s+st);
readln;
end.
Để tối ưu thêm câu b) bạn có thể tìm hiểu thêm về hàm Z
Với một thằng ngu Tin như mình thì chỉ làm được câu a '-'
Program BTT;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
For i:=length(St) downto 1 do Write(St[i]);
Readln
End.
Câu hỏi trong lớp
Xem thêm
