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

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

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


textual

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

{подсчитать количество букв "о" в строке введеной с клавиатуры и удалить их 
из этой строки }
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы