đề bài là đảo ngược xâu vd : xe dap-> dap xe. có người làm như này mấy banh giải thích ý tưởng cho mik với
var s:string;
x,y,z,t:byte;
begin
write('nhap xau'); read(s);
z:= length(s);
for y:= length(s) downto 1 do
if ((s[y]=' ') or (y=1)) then begin
for t:=y to z do
write(s[t]);
z:=y;
end;
end;
end.
giúp mik phân tích nha
Loga
Sinh Học lớp 12
