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

Question

Информатика

Ируня

30 июля, 22:30

Напишите программу, которая считает знаки пунктуации в символьной строке. К знакам пунктуации относятся символы из набора ".,; :?!". Формат входных данных Программа получает на вход символьную строку (длина строки не больше 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