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ó.
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ó.
By Emery
By Emery
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ó.
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.