Удалить цифры из предложения - Turbo Pascal
Формулировка задачи:
Тема Множества. Дано предложение. В нем ошибочно набраны лишние знаки (цифры), удалить их. Результат отобразить на экране.
Решение задачи: «Удалить цифры из предложения»
textual
Листинг программы
var
s: String;
i: Integer;
begin
Write('Предложение: '); ReadLn(s);
for i:=Length(s) downto 1 do if s[i] in ['0'..'9'] then Delete(s,i,1);
WriteLn('Результат: ',s);
end.