Символы и строки.Задача

[Nimiroff]

Здравствуйте, вот задача:

Записи телефонных номеров обычно содержат дополнительные символы (скобки,черточки,пробелы), - чтобы удобней запоминалось. Например: 8(123) 45-67-89. Предположим, что пользователь их так и вводит. Пусть наша программа преобразит строку с таким номером, удалив все символы, кроме цифр. Например, после ввода указанного выше номера она должна напечатать: 8123456789.

Весь вечер ломаю голову над этой задачей. Никак не могу додуматься как решить.

P.S. Задача на Паскале.

[Barabulko]

я так понимаю множества еще не прошли, тогда простыми вложенными циклами

var a,b:string;
i,j:integer;
begin
b:='-() ';
write('phone number ? - ');
readln(a);
for i:=1 to length(a) do
for j:=1 to length(b) do
if a[i]=b[j] then delete(a,i,1);
writeln('true number - ',a);
readln;
end.

в переменную b можно добавить другие знаки, если они необходимы для удаления

[Serge_Bliznykov]

можно проще, использую дополнительную строку для результата:

var s, sRes : string;
  i : integer;
begin
   WriteLn; Write('Введите номер телефона: ');
   Readln(s);

   {обработка}
   sRes := '';
   for i:=1 to Length(s) do
     if s[i] in ['0'..'9'] then
        sRes := sRes + s[i];
 Writeln('Номер телефона: ', sRes);
 readln
end.

p.s. если операция с проверкой вхождения символа в множество вызывает проблемы, то можно её легко заменить на банальную проверку:

     if (s[i]>='0') and (s[i]<='9') then
        sRes := sRes + s[i];

Но, конечно же, много лучше, разобраться с типом "множество" и изучить операции с ним.

[Nimiroff]

Всем спасибо! Разобрался