Question

40 баллов
Дано k литерных строк. Каждая строка содержит латинские и русские буквы,
цифры, а также все возможные разделители. Требуется Выделить из каждой строки и напечатать подстроки не содержащие символов точка, запятая, двоеточие, точка с запятой.
Паскаль

Answer 1

// PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var d := ['.', ',', ':', ';', '*', '<', '>', '=', '+', '-'];

 var n := ReadlnInteger('n=');

 var a := ReadArrString(n);

 Println;

 var b := a.Where(s -> not (s.Any(c -> c in d))).ToArray;

 b.PrintLines

end.