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

1

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

2013-12-06T20:20:59+04:00
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.