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

Ответ

Автор - maxwell09

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.