Viết chương trình nhập xâu và in xâu, in xâu theo thứ tự ngược lại, in hoa xâu trên và xóa dấu cách trong xâu đó.
2 câu trả lời
program bai_giai;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
readln(s);
st:=s;
writeln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s) do
s[i]:=chr(ord(s[i])+32);
writeln(s);
while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
write(st);
readln;
end.
var s:string;i:longint;
begin
writeln('nhap vao sau s');readln(s);
for i:=length(s) downto 1 do
begin
s[i]:=upcase(s[i]);
end;
for i:=1 to length(s) do
while pos(#32),s do delete(s,1,(#32),s);
writeln(s);
readln
end.
