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

Zakermanmatematik Zakermanmatematik    2   02.10.2019 23:00    5

Ответы
Katya007goi Katya007goi  04.08.2020 22:43
// 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.


40 дано k строк. каждая строка содержит латинские и буквы, цифры, а также все возможные разделители.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика