Написать функцию, которая в заданном слове удаляет заданную букву - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

написать функцию, которая в заданном слове удаляет заданную букву(буквы и слово вводятся с клав)

Решение задачи: «Написать функцию, которая в заданном слове удаляет заданную букву»

textual
Листинг программы
var i: Integer; s: String; c: Char;
begin
  Write('Строка: '); ReadLn(s);
  Write('Символ: '); ReadLn(c);
  for i:=Length(s) downto 1 do if s[i]=c then Delete(s,i,1);
  WriteLn('Результат: ',s);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.333 из 5
Похожие ответы