В заданном тексте удалить символ - Turbo Pascal

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

В заданном тексте удалить символ <,> и подсчитать количество удаленных символов.

Код к задаче: «В заданном тексте удалить символ - 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.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ