Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
Машина Малина Шина Маша Молодец Лапа Молоток Риск<span>Стих</span>
1.((0+1+1+1)*2*2*2+(1))*2=50
2.за 1 т.к. на одну чашу ложим одну монету на другую ложим 2 что перевесит то и настоящая
3.на том же месте т.к. он возвращается на место каждые 4 раза выполнив цикл а 16 и 4 сокращаются
4.