Nhập vào một xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách nếu có.
2 câu trả lời
program LN;
uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Nhap vao 1 chuoi bat ki: ');
readln(s);
for i:= 1 to length(s) do
if s[i] = ' ' then delete(s,pos(' ',s),1);
writeln(s);
readln;
end.
program helpp;
uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Nhap vao chuoi S: ');
readln(s);
for i:= 1 to length(s) do
if s[i] = #32 then delete(s,i,1);
writeln(s);
readln;
end.
