Var
a,b,c,k:integer;
begin
Read(a,b,c);
k:=1;
repeat
b:=2*b;
a:=a-b div 2;
if a<=0 then Writeln('Черт разорен')
else
begin
a:=a+c;
b:=b-c;
if b<=0 then Writeln('Крестьянин разорен')
else k:=k+1
end
until (a<=0) or (b<=0);
Writeln(k)
end.
Только для 7, т.к рассмотрим вторую скобку без инверсии
7 0
9 1
11 1
12 1
Инверсия даст (1 0 0 0) (записала по горизонт., чифры соответствуют 7,9 11,12)
В первой скобке с учетом инверсии получ-ся (1 0 0 0), перемножаем, получаем 1 только в одной строке - напротив 7
Идти в ось х вправо.ось у вверх.а чтобы шел вниз добавляем -
Раздел для разгона материнской платы (Motherboard Intelligent Tweaker)
Внизу текущие данные.
Пусть S - ср.арифм. S := (x1 +x2)/2
k := k-1
i := i+1
пусть N - количество тетрадей, M - цена одной тетради, H - цена одной обложки, S - стоимость всей покупки, тогда S := (M+H)*N