

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var i,n:longint; s:string; a:array[1..255]of string;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
s:=' '+s+' ';
for i:=1 to length(s)-1 Do
if (s[i]=' ')and(s[i+1]<>' ') then inc(n) else
if s[i]<>' ' then a[n]:=a[n]+s[i];
for i:=n downto 1 do write(a[i],' ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
program Hello;
uses crt;
var st,s,sn:string;
i:longint;
begin
clrscr;
readln(st);
st:= st + ' ';
for i:= 1 to length(st) do
begin
s:= s + st[i];
if (st[i] = ' ')then
begin
sn:= s + sn;
s:='';
end;
end;
writeln(sn);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
927
21657
1844
Chào bạn
927
21657
1844
Tại sao câu trả lời của mình tại câu hỏi vhttps://hoidap247.com/cau-hoi/2239462 lại bị xóa với lí do không hợp lệ ạ
927
21657
1844
Nội dung câu trả lời không vi phạm, mình nhắn với bạn vì mình tin chắc rằng nhắn với Ad sẽ không rep. Ngược lại còn bị chặn
2289
45102
1741
câu trl của bạn có google.com và google nên mình xóa với lý do là không hợp lệ <=> có link trang web khác đấy, nếu bạn muốn trả lời lại thì nên thay từ đó -> mạng
927
21657
1844
Oh, một lí do rất có lí
7
904
2
giải thích ý tưởng với ạ
2376
46183
1806
Mình phân tích xâu rồi đưa vào dãy
2376
46183
1806
Say đó xuất ngược dãy