///////////////////////////////////////////////////////////
SetBrushHatch, принимает параметр - стиль штриховки. Подробности - в справке по ABCGraph, подраздел "Подпрограммы для работы с кистью". Это установка вида штриховки. А сама штриховка получится при обычной заливке. Или заливке ранее нарисованного контура, или при рисовании фигуры с заливкой. Этих команд много.
Var
<span> K, s: </span>byte;
<span> A: array [0..4] of </span>byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
<span>end.</span>
Самый быстрый и легкий способ - логически порассуждать, применив правила алгебры логики (АЛ).
Запишем в немного упрощенном виде:
¬(a + b) * c.
Наше выражение состоит из отрицания первой части, в которой есть два слагаемых (ИЛИ = "+"), и умножения (И = "*") первой и второй частей. Так как нам нужно найти наборы, которые дают ложь, то проще всего будет посчитать вторую часть, которая будет ложна.
Вспомним правила АЛ:
0*0 = 0;
1*0 = 0;
0*1 = 0;
1*1 = 1;
Итого видим, что только в одном случае выражение дает истину - 1*1, чего нам стоит избегать.
Итак, попробуем решить вторую часть методом перебора:
1) - истина.
2) - истина.
3) - ложь.
4) - ложь.
5) - истина.
Итого в ответ идут два выражения: 3, 4.
Для достоверности нужно проверить истинные выражения, подставив в первую часть (на случай, если будет "0*1").
Для этого упростим.
¬(a+b) = ¬a * ¬b.
1) - истина.
2) - ложь
5) - истина.
Так как во втором выражении вышла ложь, то оно тоже пойдет в ответ (0*1 = 0).
Ответ: 2, 3, 4.
110010=50
50\%девочек, т,половина
1010=10 мальчиков
10=50\%
10+10= 20 учеников
Ответ б