Войти Регистрация Спроси ai-bota

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

Показать ответ

Ответ:

asino20145

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

0,0(0 оценок)

Популярные вопросы: Информатика

Ks1mak

16.06.2020 03:42

)для чего предназначены программные продукты (пп)? что понимают под образовательными информационными ресурсами? перевести десятичные числа в двоичную,восьмеричную и 16-ричную.системы...

satokostanay

23.07.2022 21:16

Где ошибка? вот : из пункта а в пункт б движется велосипедист с постоянной скоростью v км/ч. через 1.5 часа после его старта из пункта а стартовал второй велосипедист, который...

equillirum

28.08.2020 14:21

Сколько символов в строке сообщения, написанного 64- символьным алфавитом на 30 строках. всё сообщение содержит 8640 байтов информации и занимает 6 страниц....

zokaa112

09.03.2022 07:30

1.запишите в десятичной системе счисления следующие числа: а2 =10111, а8 =447, а16 =45a с решением !...

Yaritas

14.02.2023 12:29

1. перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 2. перевести данное число в десятичную систему счисления....

ktoto2956

07.10.2020 05:52

Какова мощность алфавита, если информационный вес одного символа составляет 32 бита? при приеме некоторого сообщения получили 10 бит информации. сколько вариантов исхода было до...

Krst263

21.06.2020 11:25

Верно, что приоритет операций выше: 1) умножения чем сложения 2) отношения чем умножения 3) эквивалентности чем конъюнкции 4) унарных чем бинарных...

Qwerrgggggg

21.06.2020 11:25

If13. даны три числа. найти среднее из них (то есть число, расположенное ме-жду наименьшим и наибольшим). !...

Artemgood

21.06.2020 11:25

Выполните в двоичной системе счисления следующие арифметические операции: а)21+13 б)21-13 в)9*3 г)40/4...

Asuacom

23.10.2021 18:22

For13°. дано целое число n ( 0). найти значение выражения 1.1 – 1.2 + 1.3 – … (n слагаемых, знаки чередуются). условный оператор не использовать. через бэйсик желательно...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку