Удалить цифры из предложения - 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.

Оцени полезность:

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы