Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
1254
1145
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
Hãy giúp mọi người biết câu trả lời này thế nào?
0
0
cho mn hỏi: St là j vậy???
0
0
st:=st+s[i]; không dc
0
0
to đổi thành downto
1254
1145
Ok mình sửa r.
0
0
Tại sao không dùng được lên to mà phải dùng lệnh downto.
2
0
ý tưởng thì cx đc nhưng code này nó ko ổn lắm đâu ạ. các làm của bạn nó ko khác j s cộng với đảo ngược của s mà bị xóa đi s[1] đâu. VD : nhập vào xâu "abab" thì kq của nó sẽ là "ababa" chứ ko phải "abababa" đâu
Bảng tin