nhập vào1 xâu bất kỳ. đếm xem trong xâu có bao nhiêu dấu cách rồi xóa hết các dấu cách có trong xâu.hiển thị kết quả ra sao màn hình
2 câu trả lời
program Xoacach;
uses crt;
var s:string;i,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: ',s);
readln
END.
@ 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 !
