Помогите пожалуйста!!!3 задание

Question

3 года назад

9

Помогите пожалуйста!!!
3 задание

1 ответ:

PionaJ [15] · Answer 1 · 2021-05-19T21:53:33+03:00

<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var s := ReadlnString;

s.MatchValues('[.,:;\-()!?"]').Count.Println; // №1

(s.MatchValues('\d').Count > 0).Println; // №2

(s.MatchValues('(.)\1').Count > 0).Println; // №3

end.