Question

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

Answer 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)>0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Hi, guys!
k = 2