Viết chương trình nhập vào một xâu cho biết trong sau có bao nhiêu phần tử là dấu cách

0 bình luận về “Viết chương trình nhập vào một xâu cho biết trong sau có bao nhiêu phần tử là dấu cách”

1. uses crt;
   var s:string;
       i,dem:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
      if s[i]=’ ‘ then dem:=dem+1;
      writeln(‘So dau cach co trong xau la: ‘,dem);
      readln
   end.

   Bình luận

2. uses crt;
   var st : string; i,d : integer;
   begin clrscr;
   write(‘Nhap xau :’); readln(st); d:=0;
   for i:=1 to length(st) do if st[i]=#32 then d:=d+1;
   write(‘Phan tu cach co trong xau :’,d);
   readln
   end.

   Bình luận