Напишите программку, которая считает знаки пунктуации в символьной строке. К знакам

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

Задать свой вопрос
1 ответ
Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
 if pos(s[i],p)gt;0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Hi, guys!
k = 2
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт