дам много балов.срочно надо.дано:а=70 в 10,b=40 в 10.какое из чисел с,записанных в двоичной системе,отвечает условию b<с

var c,i:integer;function IntToBin2(Value: integer): string;var  i: integer;beginResult:= '';for i:= 0 to Trunc(Ln(Value)/Ln(2)) doResult:= IntToStr((Value and (1 shl i) shr i))+Result;end; begin;for c:=41 to 69 dowriteln(c,'=',IntToBin2(c));end.Вывод:41=10100142=10101043=10101144=10110045=10110146=10111047=10111148=11000049=11000150=11001051=11001152=11010053=11010154=11011055=11011156=11100057=11100158=11101059=11101160=11110061=11110162=11111063=11111164=100000065=100000166=100001067=100001168=100010069=1000101