Nhập 1 đoạn văn đếm xem trong đoạn văn có bn từ , bn câu Mn giúp e gấp 11h20 e phải nộp bài r

0 bình luận về “Nhập 1 đoạn văn đếm xem trong đoạn văn có bn từ , bn câu Mn giúp e gấp 11h20 e phải nộp bài r”

1. uses crt;

   var dv: string;

   i,dt,dc: integer;

   begin

   clrscr;

   writeln (‘nhap doan van: ‘);    readln (dv);

   for i:=1 to length(dv) do

   if (dv[i]=’ ‘) then dt:=dt+1;

   if (dv[i]=’.’) then dc:=dc+1;

   writeln;

   writeln (‘trong doan van co ‘,dt,’ tu va ‘,dc,’ cau’);

   readln;

   end.

   Bình luận