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 câu trả lời
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.
