Задание:
ПОЖАЛУЙСТА! СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ, КОТОРАЯ ПРИ ВЫВОДЕ УДАЛЯЛА БЫ ИЗ СТРОКИ ТЕКСТА ЦИФРЫ. ОЧЕНЬ НУЖНО ПОЖАЛУЙСТАПОМОГИТЕ!
Решение:
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. Программа заменяет цифры на пробелы.
Знаете другой ответ?