Ответы на вопрос:
Var f,s: string; i: integer; begin read(s); for i: =1 to length(s) do if(s[i]< '0')or (s[i]> '9')then f: =f+s[i]; writeln(f); end.
Популярно: Информатика
-
sonyavolkova2618.03.2022 19:44
-
Деп56708.07.2022 10:00
-
садагат212.10.2021 23:04
-
Bon200009.05.2023 11:41
-
вика678111.01.2023 16:13
-
danishvika08.03.2022 19:28
-
Fazi883305.11.2022 04:13
-
Den4ik11tbbbb28.05.2020 17:33
-
kirifili00717.10.2022 18:20
-
dianka020203.10.2021 02:40