Viết chương trình nhập vào 1 xâu có độ dài không quá 100 kí tự. Đếm số dấu cách có trong xâu

0 bình luận về “Viết chương trình nhập vào 1 xâu có độ dài không quá 100 kí tự. Đếm số dấu cách có trong xâu”

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

2. program oken;
   uses crt;
   var s: string[100];
       i,dem:byte;
   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 dau cach co trong xau: ‘,dem);
           readln;
   end.

   Bình luận