Задать вопрос Регистрация
Помочь другим

  • подсчитать сколько знаков препинания в заданном с клавиатуры тексте

Ответы 1

  • var q: string;i,s: integer;begin readln(q); for i:=1 to Length(q) do begin if (q[i]=',') or (q[i]='.') or (q[i]=':') or (q[i]=';') or (q[i]='!') or (q[i]='?') then s:=s+1; end; writeln(s);end.

     

    если я забыл про какие то знаки препинания,то просто допиши их также как и остальные знаки)

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years