Посчитать количество восклицательных предложений в тексте длины не более 255 символов. (программа Паскаль)
Вопрос посетителя
Посчитать количество восклицательных предложений в тексте длины не более 255 символов.
Ответ эксперта
var s: String; i, k: Integer;
begin
ReadLn(s);
for i:=2 to Length(s) do
if (s[i]=’!’) and (s[i-1]<>‘!’) then Inc(k);
WriteLn(k);
end.