У кур и кроликов вместе…

Vboption explicitdim i,j,k as integerdim N as integerdim MyStr as stringprivate 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+1end ifnext jnext iMsgBox ("Обнаружено"+Str (k)+"комбинаций: "+vbcrlf+Mystr) end sub