lập trình nhập vào 1 xâu kí tự đếm và thông báo ra màn hình số lượng kí tự trắng có trong xâu mn giúp với ạ!

0 bình luận về “lập trình nhập vào 1 xâu kí tự đếm và thông báo ra màn hình số lượng kí tự trắng có trong xâu mn giúp với ạ!”

1. uses crt;
   var st : string;
   d,i : integer;
   begin
   write(‘Nhau xau :’); readln(st);
   for i:=1 to length(st) do if st[i]=#32 then d:=d+1;
   write(d);
   readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var s: string;
       i,dem: integer;
   begin
       clrscr;
       write(‘Nhap 1 xau bat ky: ‘); readln(s);
       for i:=1 to length(s) do
           if s[i]=’ ‘ then
               dem:=dem+1;
       writeln(‘So ky tu trang co trong xau: ‘,dem);
       readln;
   end.

   Bình luận