Viết chương trình nhập vào một xâu sau đó đếm số từ đó trong xâu (dựa vào khoảng cách để xác định số từ)

0 bình luận về “Viết chương trình nhập vào một xâu sau đó đếm số từ đó trong xâu (dựa vào khoảng cách để xác định số từ)”

1. Program So_tu;

   Uses crt;

   Var i,dem: integer;

   S: string;

   Begin

   Clrscr;

               Write(‘Nhap xau S: ‘); Readln(S);

               Dem:=0;

               S:=S+’ ‘;

               For i:=1 to length(S) do

               If S[i]=#32 then dem:=dem+1;

               Writeln(‘Trong xau co tat ca’,dem,’tu’);

   End.

   Bình luận

2. program phuongt;
   uses crt;
     var s: string;
        d, i: integer;
   begin
           clrscr;
           write(‘Nhap xau S = ‘); readln(s);
           for i:=1 to length(s) do if s[i]=’ ‘ then d:=d+1;
           write(‘Vay xau S co tat ca ‘, d+1, ‘ tu’);
           readln
   end.

   Bình luận