Lập trình nhập vào 1 xâu có độ dài không quá 200 kí tự .đếm và đưa ra màn hình số lượng dấu cách có trong xâu Giúp em !!!!

0 bình luận về “Lập trình nhập vào 1 xâu có độ dài không quá 200 kí tự .đếm và đưa ra màn hình số lượng dấu cách có trong xâu Giúp em !!!!”

1. dem:=0;

   for i:=1 to length(s) do if s[i]=’ ‘ then inc(dem);//bien dem la kq

   nhập xuất tự làm

   Bình luận

2. 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