Написать функцию, которая в заданном слове удаляет заданную букву - 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.