viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự

0 bình luận về “viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự”

1. var s: string;

          i, d: byte;

   begin

       write(‘nhap xau: ‘); readln(s);

       d:=0;

       Writeln(‘co ‘, length(s), ‘ ki tu’);

       For i:=1 to length(s) do

            If s[i]=’ ‘ then inc(d);

       Write(‘co ‘, d+1, ‘ tu’);

       Readln

   End.

   Bình luận

2. program tu_kitu;

   uses crt;

   var s:string;

         i,d:byte;

   begin

         clrscr;

         write(‘Nhap xau: ‘);  readln(s);

         d:=1;

         for i:=1 to length(s) do

               if s[i]=’ ‘ then d:=d+1;

         writeln(‘Co ‘,d,’ tu’);

         writeln(‘Co ‘,length(s),’ ki tu’);

         readln;

   end.

   Bình luận