[Vladimr]

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

Код:

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

writeln('кол-во цифр в предложении: '+inttostr(a));
end;