Nhập vào một xâu kí tự S rồi in các từ trong xâu theo thứ tự ngược lại. Ví dụ: S= nguyen Van Nam => Kết quả: Nam Van Nguyen.
các bạn giúp mik vs
sắp phải nộp rồi ????????
Nhập vào một xâu kí tự S rồi in các từ trong xâu theo thứ tự ngược lại. Ví dụ: S= nguyen Van Nam => Kết quả: Nam Van Nguyen.
các bạn giúp mik vs
sắp phải nộp rồi ????????
uses crt;
var s:string;
i:integer;
begin
clrscr;
write(‘nhap chuoi:’);readln(s);
write(‘Chuoi nguoc:’);
for i:=length(s) downto 1 do write(s[i]);
readln;
end.
mình cũng ko chắc lắm
program xaudao;
uses crt;
var st,st2,s:string;
i,j,d:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(st);
s:=”; i:=length(st); d:=0;
while i>0 do
begin
st2:=st[i]; j:=i-1; inc(d);
while (st[j]<>#32) and (j>0) do
begin
st2:=st[j]+st2;
dec(j);
end;
i:=j;
s:=s+st2;
if d=1 then s:=s+’ ‘;
end;
write(‘Xau dao la: ‘,s);
readln;
end.
Cho mình ctlhn nha!