Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

ПОЖАЛУЙСТА! СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ, КОТОРАЯ ПРИ ВЫВОДЕ УДАЛЯЛА БЫ ИЗ СТРОКИ ТЕКСТА ЦИФРЫ. ОЧЕНЬ НУЖНО ПОЖАЛУЙСТА ПОМОГИТЕ!

Ответ оставил Гость

var

  a: string;

  i: integer;

begin

  writeln(Введите строку);

  readln(a);

  for i:= 1 to length(a) do

    if (a[i] = 1) or (a[i] = 2) or (a[i] = 3) or (a[i] = 4) or (a[i] = 5) or (a[i] = 6) or (a[i] = 7) or (a[i] = 8) or (a[i] = 9) then a[i]:= ;

  writeln(a);

end.

Программа заменяет цифры на пробелы.