@ kynguyen64
NHỚ CHO MIK CTLHN VỀ CHO NHÓM NHA:)))
program xoa_dau_cach_trong_xau;
uses crt;
var s:string; i: byte; n:byte;
begin
clrscr;
write('Nhap_xau_s: ');
readln(s);
for i:= 1 to length(s) do
if s[i]=' ' then begin n:=n+1;delete(s,i,1) end;
Writeln('Xau_sau_khi_xoa_cach: ');
Writeln(s);
readln;
end.
CHO KYNGUYEN64 XIN CTLHN+5 SAO+CÁM ƠN !
CHÚC BẠN HỌC TỐT !