Знаки препинания

[Ne1StoM]

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

[Utkin]

В цикле проходимся по строке как по массиву строка[переменная_цикла]. Если символ запятая, то считаем ее.

[Ne1StoM]

да я не знаю вообще как записать это все((((

[Utkin]

Ну так узнавай... Например, у гугля. Задай в строке, что-нибудь типа Паскаль Циклы и Паскаль работа со строками. Ну если совсем все плохо - Паскаль, условия. Еще тебе понадобиться определить число символов в строке (как это делается гугля тоже знает )

[_-Re@l-_]

Не хочу писать, но ладно, в память того что я когда-то тоже был ламером.

Var
     S : String;
     i , n : Integer;
Begin
        Readln(S);
        n:=0;
        For i:=1 to Length(S) Do
        Begin
                If S[i] = ',' Then Inc(n);
        End;
        Write(n);
        Readln;
End.