Две задачки. Написать ** PascalABC.NET. 1) Подсчитать количество слов, в которых...

Question

Две задачки. Написать на PascalABC.NET.
1) Подсчитать количество слов, в которых встречаются только согласные.
2) Вывести на экран все слова, начинающиеся не с цифры.

Answer 1

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  var s:=ReadlnString('->');
  var a:=RegEx.Matches(s,'\s([бвгджзйклмнпрстфхцчшщ]+)\s',
    RegexOptions.IgnoreCase);
  foreach var w in a do Writeln(w.ToString.Trim);
end.

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.