Прошу помогите, все перепробовал Составить программку, которая удалит из введенной строчки

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

Задать свой вопрос
Сильванюк Альбина
Pascal
1 ответ
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
новенькая строчка: абвенвав



, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт