40 дано k строк. каждая строка содержит латинские - вопрос №959927140 от Darina1110 18.03.2023 13:22

Question

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

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