Написать программу подсчитывающая количество знаков препинания в
заданном предложении.
Решение:
program znaki; var s:string; i,k:byte; BEGIN writeln('Введите предложение'); readln(s); k:=0;
for i:=1 to length(s) do if (s[i]:=',') or (s[i]:='.') or (s[i]:=':') or (s[i]:='!') or (s[i]:='?') or (s[i]:='...') or (s[i]:=';') or (s[i]:='-') then k:=k+1; writeln(k); END.
Объяснение:
Вводим предложение. Изначально переменной k, которая отвечает за количество знаков препинания присваиваем 0. Далее в цикле если встречается знак препинания то переменная k присваиваем ее значение +1.