В заданном тексте удалить символ - Turbo Pascal
Формулировка задачи:
В заданном тексте удалить символ <,> и подсчитать количество удаленных символов.
Решение задачи: «В заданном тексте удалить символ»
textual
Листинг программы
var
s : string;
i, k : integer;
begin
write('введите строку текста: ');
readln(s);
k := 0;
for i := length(s) downto 1 do
if s[i] = ',' then
begin
delete(s, i, 1);
inc(k)
end;
writeln('новый текст: ', s);
writeln('количество удаленных ",": ', k);
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д