Прошу , все перепробовал составить программу, которая удалит из введенной строки все цифры.( напишите )

137

311

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

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

cerenkovvladimi

Информатика

4,4(59 оценок)

Var s,st,sm: string; i,k: integer; begin sm: ='0123456789'; write('строка: '); readln(s); st: =''; for i: =1 to length(s) do begin k: =pos(s[i],sm); if k=0 then st: =st+s[i]; end; writeln('новая строка: ',st); end.строка: 12абв1е2н12вав14 новая строка: абвенвав