Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.

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