cho một xây ký tự và thông báo ra màn hình các từ đảo ngược vd ngon ngu nogn ugn
2 câu trả lời
var s: string;
i: byte;
Begin
Write('nhap xau: '); readln(s);
For i:=length(s) downto 1 do
Write(s[i]);
Readln
End.
program dao_tu;
uses crt;
var s,st:string;
i,j:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
i:=1; st:=''; s:=s+' ';
while i<=length(S) do
begin
if s[i]=' ' then
begin
for j:=length(st) downto 1 do write(st[j]);
write(' ');
st:='';
end
else st:=st+s[i];
i:=i+1;
end;
readln;
end.
