Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var a: =readlnstring('введите текст: ').tolower.towords; var c: =readlnchar('введите искомую букву').tolower; writeln('слов с этой буквой: ',a.where(w-> w.contains() end. пример введите текст: а роза упала на лапу азора введите искомую букву а слов с этой буквой: 6
Популярно: Информатика
-
vimaa26.11.2022 07:42
-
лерка123456789й07.08.2022 22:30
-
XxxJEKxxX26.08.2022 12:55
-
cvetok55519.04.2020 04:19
-
Anonim65432112.06.2022 00:21
-
12345678212121.11.2020 11:25
-
номе49828.10.2022 00:23
-
Vladislava11111111112.08.2022 21:31
-
Vova2288s23.11.2022 21:49
-
xbusxj15.03.2020 04:14