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.
var f,s:string; i:integer; begin read(s); for i:=1 to lenth(s) do if not((ord(s[i])=ord(0)))then f:=f+s[i];
не так написал.сейчас исправлю и напишу нормально.
А каким ты образом удаляешь строки?
каким образом програма удаляет строки?Там программа запршивает ввод данных и всё
то,решение которое я первоначально написал оно верное.
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.
программа банально проходит всю строку и сравниает элемент ,который находится. если он не лежит в промежутке от 0 до 9 то его добавляют к новой строке,которую изначально сделали пустым множеством.вот и всё