Ответы на вопрос:
Const g=['й','ц','к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б','й','ц','к','н','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м','т','б']; var str: string; i: byte; begin readln(str); for i: =1 to length(str) do begin if str[i] in g then writeln (str[i]); end; end.
Популярно: Информатика
-
girb1329.06.2020 16:02
-
dawlatowaalbina13.09.2021 16:40
-
LaimZ13.01.2021 06:02
-
nastyaetoi06.11.2020 16:12
-
lovchike23.09.2022 02:55
-
Wasder114.09.2021 21:25
-
otrixx1kiraeee18.03.2020 09:43
-
Mariniko367912.01.2020 00:18
-
хамзикош09.06.2022 21:41
-
msSisi124.05.2022 04:18