40 баллов
Дано k литерных строк. Каждая строка содержит латинские и русские буквы,
цифры, а также все возможные разделители. Требуется Выделить из каждой строки и напечатать подстроки не содержащие символов точка, запятая, двоеточие, точка с запятой.
Паскаль
Дано k литерных строк. Каждая строка содержит латинские и русские буквы,
цифры, а также все возможные разделители. Требуется Выделить из каждой строки и напечатать подстроки не содержащие символов точка, запятая, двоеточие, точка с запятой.
Паскаль
5/5
(1 оценка)
0
Мозг
Отвечающий
// 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.