Ответ:
- var s: string;
- begin
- readln(s);
- writeln(s.Remove(',','.','!','?',' ').Length);
- end.
Пояснение:
Сумма длин всех слов строки - это количество букв строки, или же количество символов, не являющимися знаками. Поэтому используем Remove(), где в скобках указываем символы, которые не нужно считать. Можно добавить (например, скобки или др.). Lenght возвращает длину строки, в нашем случае уже видоизмененной. На фото пример с выводом видоизмененной строчки (для наглядности работы).
Пример работы:
