Viết ct nhập vào 1 xâu kí tự bất kì . In ra màn hình đếm số kí tự trắng trong xâu

0 bình luận về “Viết ct nhập vào 1 xâu kí tự bất kì . In ra màn hình đếm số kí tự trắng trong xâu”

1. program xau;

   uses crt;
   var s:String;
       i, d: Byte;
     
   begin
       clrscr;

       D:=0;
       write(‘nhap xau: ‘); readln(s);
       for i:=1 to length(s) do

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

       Write(‘co ‘, d,’ ki tu trang’);

       Readln 
   end.

   Bình luận

2. program phuongt;
   uses crt;
     var s: string;
        d, i: integer;
   begin
           clrscr;
           write(‘Nhap xau S = ‘); readln(s);
           for i:=1 to length(s) do if s[i]=’ ‘ then d:=d+1;
           write(‘Vay xau S co tat ca ‘, d, ‘ ki tu trang’);
           readln
   end.

   Bình luận