Подсчитать сколько знаков препинания в заданном с клавиатуры тексте

Question

Информатика

Боруля

18 сентября, 16:13

Подсчитать сколько знаков препинания в заданном с клавиатуры тексте

+4

Ответы (1)

Знаете ответ?

Коля · Answer 1

var q: string;

i, s: integer;

begin

readln (q) ;

for i:=1 to Length (q) do

begin

if (q[i]=',') or (q[i]='.') or (q[i]=':') or (q[i]='; ') or (q[i]='!') or (q[i]='?') then

s:=s+1;

end;

writeln (s) ;

end.

если я забыл про какие то знаки препинания, то просто допиши их также как и остальные знаки)