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.
62 в 2 системе=111110; в 5 системе=222; в 8 системе=76; в 16 системе=3E
101 в 2 системе=1111001; в 5 системе=401; в 8 системе=145; в 16 системе=65
229 в 2 системе=11100101; в 5 системе=1404; в 8 системе=345; в 16 системе=E5
V=(a*b)*i
i=7
V=20*80*7=11200 бит=1400 байт
Характеристика, это интенсивность палитры.
program n5;
uses crt;
var a,b,c,d,x:integer;
begin
read (a,b,c,d);
if (b=0) and (a<>0)then write('solution');
if (b<>0) and (a=0)then write('нет корней');
if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);
readln;
end.