алг
нач
цел а, в, с
ввод а, в, с
если а<в и в<с то вывод " По росту"
иначе вывод " Не по росту!"
все
кон
Var n,k,kolvo,c:real;beginreadln (k,n,c); kolvo:=k;while k+(c-n) >=0 do beginif k+(c-n)<kolvo then begin writeln ('за ' ,abs(k/(c-n)) , 'прыжков');break endelse beginwriteln ('собака кролика не догонит');breakend; end;end.
Dim a As Integer
Dim b As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")<span>
If a = b Then MsgBox("1") Else MsgBox("0")</span>
I = 81 байт = 81 * 8 = 648 бит
k = 36 * 6 = 216
I = k * i
N = 2 ** i
i = I / k
i = 648 / 216 = 3
i = 3
N = 2 ** 3
N = 8
Ответ: 8