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

triolana
2 года назад
Светило науки - 30316 ответов - 388270 раз оказано помощи
// 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.

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

triolana
2 года назад
Я не могу к Вам в голову заглянуть, чтобы понять, что Вам нужно. А написать это в вопросе Вы не пожелали.
Мозг
Отвечающий
Желательно добавить их в другой массив и вывести его
Т.е. строки ввести с клавиатуры, запихнуть в массив, а потом результат в какой-то другой?
Ну и уж только потом его вывести. Так?
Да, именно
Странный алгоритм. Очень нерациональный. Ну да это Ваша печаль, конечно.