pascal. напишите программу ,которая из заданной строки удаляет числа.

спасибо большое)

На самом деле эта программа удаляет не числа, а цифры. Числа +18, -13, 2.45, 1.2е-5 - все эти числа будут удалены не полностью.

Но, поскольку автор вопроса не дал определения термина "число", автор ответа был вправе сам решить, что именно является числом.

//Сомнительный метод, но почему бы и нет?//Pascal ABC.NET 3.1 сборка 1219Var s,s1:string; se:set of char; i:integer;beginse:=['0','1','2','3','4','5','6','7','8','9'];readln(s);for i:=1 to length(s) doif not(s[i] in se) then s1:=s1+s[i];s:=s1;writeln(s);end. Пример ввода:S0me I3or1ng TextПример вывода:Sme Iorng Text