Надо в паскале удалить все числа из строки, помогите пожалуйста, не знаю как сделать

Question

Надо в паскале удалить все числа из строки, помогите пожалуйста, не знаю как сделать

Answer 1

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.

Comments

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 то его добавляют к новой строке,которую изначально сделали пустым множеством.вот и всё