Tin lớp 11 Nhập 1 xâu là họ tên của Trần Ngọc Duy. Xóa các kí tự trắng có trong xâu. Và in xâu kết quả ra màn hình. Ai giúp mik với ạ
1 câu trả lời
program Xau;
uses CRT;
var s,s1: string;
i: integer;
begin
clrscr;
write('Nhap xau S: ');readln(s);
for i:=1 to length(s) do
If s[i] <> ' ' then s1:=s1 + s[i];
write(s1);
readln;
end.
