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

MASTER10011 MASTER10011    2   05.01.2020 13:31    0

Ответы
Vova2005002 Vova2005002  10.10.2020 23:51

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика