viết chương trình nhập vào xâu s. đếm số kí tự trắng có trong xâu s( xâu tự cho)

0 bình luận về “viết chương trình nhập vào xâu s. đếm số kí tự trắng có trong xâu s( xâu tự cho)”

1. program kitu_trang;

   uses crt;

   var s:string;

         i,d:byte;

   begin

          clrscr;

          write(‘Nhap xau: ‘);   readln(s);

          d:=0;

          for i:=1 to length(s) do

                 if s[i]=’ ‘ then d:=d+1;

          write(‘Co ‘,d,’ ki tu trang trong xau ‘,s);

          readln;

   end.

   Bình luận

2. uses crt;
   var s:string; i,d:longint;
   begin
   clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do 
         if s[i]=#32 then inc(d);
      writeln(‘Ket qua: ‘,d);
   readln
   end.

   Bình luận