Помогите пожайлуста:) Дано предложение рассчитать в нем знаки препинания. В Паскале

1

Ответы и объяснения

2014-04-09T19:15:02+00:00
Var s:string;i,k:integer;
begin
read(s);
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]='-') then inc(k);
writeln(k);
end.