11/05/2023
12/05/2023
USES CRT;
VAR S,S1:STRING;
i:INTEGER;
BEGIN
clrscr;
writeln('Nhap xau '); readln(s);
for i:= (length(s)) downto 1 do
S1:=S1+S[i];
if (S1=S) then write('Xau doi xung') else writeln('Xau khong doi xung');
readln;
END.
11/05/2023

11/05/2023
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời