Question

Помогите составить программу на Паскале

Answer 1

Ответ:

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.

Объяснение: