Информатика составить программу в Паскаль Строка S состоит из нескольких предложений. Предложения заканчиваются точкой, восклицательным или вопросительнымзнаком. Разработайте программу, которая отобразит:− количество предложений в строке, введенной с клавиатуры;− количество слов в каждом из предложений.

Предыдущий
вопрос Следующий
вопрос

program CountSentencesAndWords;

var
S: string;
sentencesCount, wordsCount, i: integer;

begin
writeln('Введите строку S:');
readln(S);

sentencesCount := 0;
wordsCount := 0;

for i := 1 to length(S) do
begin
if (S[i] = '.') or (S[i] = '!') or (S[i] = '?') then
begin
if wordsCount > 0 then
writeln('Количество слов в предложении ', sentencesCount + 1, ': ', wordsCount);

sentencesCount := sentencesCount + 1;
wordsCount := 0;
end
else if (S[i] = ' ') or (S[i] = ',') then
begin
if wordsCount > 0 then
wordsCount := wordsCount + 1;
end
else
begin
wordsCount := wordsCount + 1;
end;

end;

writeln('Общее количество предложений в строке: ', sentencesCount);

if wordsCount > 0 then
writeln('Количество слов в предложении ', sentencesCount + 1, ': ', wordsCount);
end.