Вклассе учатся юноши и девушки, юношей 21, сообщение о том, что к доске вызовут девушку несёт информацию 2 бита. сколько человек в классе?

2бита это по другому 2 в 2 степени = 4  девочки 21+4=25 учеников

Где-то в условии ошибка. таблица истинности для пяти переменных будет содержать два в пятой степени, (т.е. 32) строки. как можно трактовать фразу "нет ни одной строки"? только так, что если a=0? то b=1 или если а=1, то в=0. комбинаций вида 0 0 или 1 1 быть не может. но выражение a v b истинно, если истинно хотя бы а или в. сделовательно, для комбинаций вида 0 1 и 1 0 такое выражение истинно всегда. тогда столбец значений для такой функции будет содержать все 32 единицы. поэтому ответ: 32 единицы. по вопросу "почему в ответах 0? " я бы сказал следующее: все 32 нуля могут быть получены, если в условии ошибка и функция имеет вид a ^ b. в том случае комбинации 0 1 и 1 0 будут давать именно нули.

Uses graphabc; var xk: integer;   procedure body (xx, yy: integer); procedure leg(x,y: integer); var i: integer; begin setpenwidth(3); setpencolor(clwhite); for i: =x-30 to x+30 do     line(x,y-60,i,y); setpencolor(clblack); line(x-30,y,x,y-60); line(x,y-60,x+30,y); line(x-30,y,x+30,y); floodfill(x,y-10,clblack); end;   var s,n: integer; begin setpenwidth(3); setbrushcolor(clblack); circle(xx-115,yy-100,20); setbrushcolor(clwhite); rectangle(xx,yy-10,xx+150,yy+130); ellipse(xx-120,yy-140,xx+50,yy); if xx mod 50< 25 then     begin leg(xx+20,yy+130); leg(xx+130,yy+150);     end else         begin leg(xx+20,yy+150); leg(xx+130,yy+130);         end; line(xx-50,yy-5,xx-60,yy+50); line(xx-60,yy+50,xx-100,yy+10); line(xx-50,yy-5,xx-100,yy+10);   line(xx+110,yy-50,xx+150,yy-10); line(xx+110,yy-50,xx+170,yy-60); line(xx+150,yy-10,xx+170,yy-60); floodfill(xx+130,yy-40,clblack);   line(xx-10,yy-150,xx+10,yy-100); line(xx+10,yy-100,xx+40,yy-140); line(xx-10,yy-150,xx+40,yy-140); floodfill(xx+10,yy-120,clblack); floodfill(xx+10,yy-140,clblack);   setpenwidth(1); circle(xx-25,yy-100,25); setpenwidth(7); circle(xx-25,yy-110,8); end;   procedure miska; begin setpenwidth(1); setbrushcolor(clblue); ellipse(10,300,110,350); setbrushcolor(clskyblue); ellipse(5,290,115,340); setbrushcolor(clbrown); ellipse(20,300,100,330); end;   procedure zv(x,y: integer); begin setbrushcolor(clyellow); circle(x,y,10); setbrushcolor(clwhite); circle(x-20,y,13); circle(x+20,y,13); circle(x,y-20,13); circle(x,y+20,13); end;   begin setwindowsize(500,400); lockdrawing; for xk: =500 downto 200 do     begin     clearwindow;     zv(50,50);     zv(380,20);     zv(70,220);     zv(170,320);     body (xk,200);     miska;     sleep(10);     redraw;     end;   end.