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

0 bình luận về “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”

1. 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.

   Bình luận

2. @ 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 !

   Bình luận