Viết chương trình nhập vào 1 xâu. Hãy cho biết có bao nhiêu từ trong xâu.

0 bình luận về “Viết chương trình nhập vào 1 xâu. Hãy cho biết có bao nhiêu từ trong xâu.”

1. uses crt;
   var s:string; i,n:longint;
   begin
   clrscr;
      write(‘Nhap 1 xau: ‘);readln(s);
      s:=’ ‘+s+’ ‘;
      for i:=2 to length(s) do
         if (s[i]=’ ‘)and(s[i-1]<>’ ‘) then inc(n);
      writeln(n);
   readln
   end.

   Bình luận

2. Program hotrotinhoc;

   var s:string;

   d: byte;

   begin

   readln(s);

   d:=0;

   for i:=1 to length(s) do

   if s[i]=’N’ then 

   begin

   inc(d);

   s[i]:=’*’;

   end;

   writeln(‘So ki tu N trong xau la :’,d);

   write(‘Xu vua thay the la :’,s);

   readln

   end.

   Bình luận