Ответы на вопрос:
//сомнительный метод, но почему бы и нет? //pascal abc.net 3.1 сборка 1219 var s,s1: string; se: set of char; i: integer; begin se: =['0','1','2','3','4','5','6','7','8','9']; readln(s); for i: =1 to length(s) do if not(s[i] in se) then s1: =s1+s[i]; s: =s1; writeln(s); end. пример ввода: s0me i3or1ng text пример вывода: sme iorng text
Популярно: Информатика
-
Агаисмаил112.04.2020 14:10
-
Chara502.07.2021 09:14
-
маринка15027.01.2020 00:19
-
DevA77721.03.2022 15:18
-
ksastaff20.02.2020 07:49
-
Тупойшкольник003.08.2021 18:29
-
ruslanka100023.05.2020 04:58
-
2006otvet06.07.2021 03:54
-
theknow1427.09.2022 03:19
-
artyrik41200206.08.2022 10:48