округлите в двоичной системе счисления до 5 чисел после запятой:
110011,001111....

160

216

Посмотреть ответы 1

Ответы на вопрос:

teorem

Информатика

4,5(26 оценок)

Vb option explicit dim i,j,k as integer dim n as integer dim mystr as string private sub p1() mystr="возможные комбинации: " n=int(inputbox("введите число n","запрос числа n",6)) for i=1 to n for j=1 to n if i*2+j*4=n then mystr=mystr+vbcrlf+"число кур-"+str(i)+"/"+"число кроликов"+str(j) k=k+1 end if next j next i msgbox("обнаружено"+str(k)+"комбинаций: "+vbcrlf+mystr) end sub