Bài 4: Viết chương trình nhập vào 1 xâu .In ra màn hình số lượng dấu cách có trong xâu vừa nhập vào .

0 bình luận về “Bài 4: Viết chương trình nhập vào 1 xâu .In ra màn hình số lượng dấu cách có trong xâu vừa nhập vào .”

1. uses crt;
   var s:string; i,d:byte;
   begin
   clrscr;
      write(‘Nhap xau S: ‘);readln(s);
      d:=0;
      for i:=1 to length(s) do 
         if s[i]=’ ‘ then inc(d); 
      writeln(‘Co ‘,d,’ dau cach trong xau vua nhap’);
   readln
   end.

   Bình luận

2. uses crt;
   var s:string;i,d:longint;
   begin
      clrscr;
      write(‘Nhap xau: ‘); read(s);
      for i:=1 to length(s) do if s[i]=’ ‘ then inc(d);
      writeln(‘Co ‘,d,’ khoang trang’);
      readln
   end.

   Bình luận