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

273

395

Посмотреть ответы 2

Ответы на вопрос:

motztv21

Информатика

4,8(85 оценок)

//сомнительный метод, но почему бы и нет? //pascal abc.net 3.1 сборка 1219 var s,s1: string; se: set of char; i: integer; begin se: =['0','1','2','3','4','5','6','7','8','9']; readln(s); for i: =1 to length(s) do if not(s[i] in se) then s1: =s1+s[i]; s: =s1; writeln(s); end. пример ввода: s0me i3or1ng text пример вывода: sme iorng text