viết chương trình nhập vào 1 đoạn văn. Đếm xem trong đoạn văn vừa nhập có bao nhiêu câu

uses crt;

var s:string;

   d,i:longint;

begin

clrscr;

write('Nhap doan van: '); readln(s);

for i:=1 to length(s) do

if (s[i]='.') or (s[i]='?') or (s[i]='!') then inc(d);

write('Co ',d,' cau trong doan van);

readln

end.

#include <iostream>
using namespace std;
int main()
{
    int a=0;
    string s;
    getline(cin,s);
    for(int i=0;i<s.size();i++){
        if(s[i]=='.'||s[i]=='?'||s[i]=='!'){
            a++;
        }
    }
    cout<<"Doan van co "<<a<<" cau.";
    //samon247
    return 0;
}