Viết chương trình nhập vào một xâu tính và đưa ra màn hình số lượng các kí tự trống trong xâu? Ai biết giúp mình với ạ

0 bình luận về “Viết chương trình nhập vào một xâu tính và đưa ra màn hình số lượng các kí tự trống trong xâu? Ai biết giúp mình với ạ”

1. Program FNG;
   Uses crt;
   Var St: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap St: ‘); Readln(St);
           d:=0;
           For i:=1 to length(St) do
                   If St[i]=#32 then inc(d);
           Write(d);
           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