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

Question

Информатика

Калида

11 марта, 08:55

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

+4

Ответы (1)

Знаете ответ на вопрос?

Матрона · 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