40 дано k строк. каждая строка содержит латинские - вопрос №959836940 от HvashevskiiDenis2006 13.05.2021 11:19

Question

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

HvashevskiiDenis2006 · Answer

// 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 строк. каждая строка содержит латинские и буквы, цифры, а также все возможные разделители.