Надо в паскале удалить все числа из строки, помогите пожалуйста, не знаю как сделать
Надо в паскале удалить все числа из строки, помогите пожалуйста, не знаю как сделать
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы