Nhập 1 xâu từ bàn phím,viết chương trình đếm các kí tự trống trong xâu

0 bình luận về “Nhập 1 xâu từ bàn phím,viết chương trình đếm các kí tự trống trong xâu”

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 inc(dem);
      write(‘So luong ky tu trong trong xau la: ‘,dem);
      readln
   end.

   Bình luận

2.   Program Hotboy ;

     Uses crt;

     var Hb:string;

     i,d:byte;

     Begin

     Clrscr;

      D:=0;

      Write(‘Nhap xau tu ban phim ‘);         

      Readln(Hb);

      For i:=1 to length(Hb) do

      if (Hb[i]=’ ‘) then inc(d);

      Write(‘So ki tu trong trong xau do la: ‘,d);

      Readln

      End.

   Bình luận