Дана строка-предложение ** русс. язДана строка-предложение ** русс. яз Подсчитать кол-во...

Question

Дана строка-предложение на русс. язДана строка-предложение на русс. яз Подсчитать кол-во содержащихся в строке знаков препинания....Программа паскаль АВС Очень нужно помогите!

Answer 1

Uses crt;
var i,ans:integer;
str:string;
begin
ans:=0;
readln(str);
for i:=1 to length(str) do
if (str[i]='.') or (str[i]=',') or (str[i]=';') or (str[i]=':') or (str[i]='?') or (str[i]='!')
then ans:=ans+1;
writeln(ans);
end.