Написать программу на паскале, которая определяет количество предложений во введенном тексте.
Написать программу на паскале, которая определяет количество предложений во введенном тексте.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountSentences;
var
text: string;
numOfSentences: integer;
i: integer;
begin
numOfSentences := 0;
writeln('Введите текст:');
readln(text);
for i := 1 to length(text) do
begin
if (text[i] = '.') or (text[i] = '?') or (text[i] = '!') then
numOfSentences := numOfSentences + 1;
end;
writeln('Количество предложений в тексте: ', numOfSentences);
end.