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>
1000 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*0 = 8 + 0 + 0 + 0 = 8
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0110 = 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 0 + 4 + 2 + 0 = 6
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0101 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0<span>*1 = 0 + 4 + 0 + 1 = 5
</span>0100 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0<span>*0 = 0 + 4 + 0 + 0 = 4
</span>1001 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 8 + 0 + 0 + 1 = 9
Если это одно большое число, то вот так
1000000101100001010101001001 = 2^27*1 + 2^26*0 + 2^25*0 + 2^24*0 + 2^23*0 + 2^22*0 + 2^21*0 + 2^20*1 + 2^19*0 + 2^18*1 + 2^17*1 + 2^16*0 + 2^15*0 + 2^14*0 + 2^13*0 + 2^12*1 + 2^11*0 + 2^10*1 + 2^9*0 + 2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 20*1 = 134217728 + 0 + 0 + 0 + 0 + 0 + 0 + 1048576 + 0 + 262144 + 131072 + 0 + 0 + 0 + 0 + 4096 + 0 + 1024 + 0 + 256 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 135664969
<u />
^ - Возведение в степень
S=63;
1)S:=63+1=64;
x:=1+1=2;
2)S:=64+2=66;
x:=2+1=3;
3) S:=66+3=69;
x:=3+1=4;
4)S:=69+4=73;
x:=4+1=5.
Ответ: S=73
3) Решения
2 Кбайта=2*2^13 бита= 2^14 бита
128 *128=2^7 *2^7=2^14 (количество пикселей)
2^14(бита) : 2^14 (кол. пикс.) =1 бит ( для одного пикселя)
2^1=2 - количество цветов (чёрно-белое изображение)
4) Решения
32Х64=2048 символов на 1 странице
2048Х15=30720 символов в 15 страницах
каждый символ по идее по 2 байта
30720Х2=61440 байта
В 1 килобите 1024 байта
61440:1024=60
ответ 60 килобайт
