40 баллов Дано k литерных строк. Каждая строка содержит латинские и русские буквы, цифры,...

Question

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

Comments

Давайте уточнять. О каких "всех возможных разделителях идет речь и каков принцип выделения подстрок для вывода из строк?

---

В таком виде задание вообще понять невозможно.

---

Различные символы по типу . , : ; * < > = + - ".

---

И как я понимаю, тут именно подстрок не будет. Нужно печатать строки

---

Хм. Т.е. вывести строки, в которых нет ни одного из перечисленных Вами символов?

---

Желательно добавить их в другой массив и вывести его

---

Т.е. строки ввести с клавиатуры, запихнуть в массив, а потом результат в какой-то другой?

---

Ну и уж только потом его вывести. Так?

---

Да, именно

---

Странный алгоритм. Очень нерациональный. Ну да это Ваша печаль, конечно.

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.

---

Comments

Спасибо за решение, но все же это не то, что нужно

---

Я не могу к Вам в голову заглянуть, чтобы понять, что Вам нужно. А написать это в вопросе Вы не пожелали.