[Vladimr]

Решение задачи 1.

Код:

var s:string; //текст с предложением
a:integer; //кол-во восклицательных предложений
i:integer; //для цикла
begin
s:=s+' '; //для того что бы считало последнее предложение
//любым способом передаём выше предложение в переменную s
a:=0; //первоначальное значение кол-ва "?"
for I := 1 to length(s) do if (s[i]='?')and(s[i]=' ')  then a:=a+1; //поиск количества вопросительных знаков
 
writeln('кол-во вопросительных предложении: '+inttostr(a));
end;