Подсчитать количество букв "о" в строке, введенной с клавиатуры - Pascal ABC

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

подсчитать количество букв "о" в строке введеной с клавиатуры и удалить их из этой строки

Код к задаче: «Подсчитать количество букв "о" в строке, введенной с клавиатуры - Pascal ABC»

textual
{подсчитать количество букв "о" в строке введеной с клавиатуры и удалить их
из этой строки }
var
  s: string;
  k, i: integer;
 
begin
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = 'o' then
    begin
      inc(k);
      delete(s, i, 1);
    end;
  writeln(s);
  writeln(k);
end.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы