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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт