Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự không phải 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 xâu đó có bao nhiêu kí tự không phải là dấu cách”

1. program khong_phai_cach;

   uses crt;

   var s:string;

         i,d:byte;

   begin

          clrscr;

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

          d:=0;

          for i:=1 to n do

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

          write(‘Co ‘,d,’ ki tu khong phai dau cach’);

          readln;

   end.

   Bình luận

2. var s:ansistring;

   i,kq:longint;

   begin

   readln(s);

   for i:=1 to length(s) do

       if s[i]<>’ ‘ then inc(kq);

   write(kq);

   end.

   Bình luận