Напишите программу, которая считает знаки пунктуации - Pascal ABC

Формулировка задачи:

Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая считает знаки пунктуации в символьной строке. К знакам пунктуации относятся символы из набора ".,;:!?". Входные данные Программа получает на вход символьную строку. Выходные данные Программа должна вывести общее количество знаков пунктуации во входной строке. Примеры входные данные Hi, guys! выходные данные 2

Код к задаче: «Напишите программу, которая считает знаки пунктуации - Pascal ABC»

textual
var
  s: string;
  i, count: integer;
 
begin
  readln(s);
  count := 0;
  for i := 1 to length(s) do
    if s[i] in ['.', ',', ';', ':', '!', '?'] then
      inc(count);
  writeln(count);
end.

13   голосов, оценка 3.462 из 5


СОХРАНИТЬ ССЫЛКУ