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 đó.
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 đó.
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.