X1 x2 x3 x4 x5 x6 x7 F1 1 0 1 1 1 1 01 0 1 0 1 1 0 10 1 0 1 1 0 1 0Какое выражение соответствует F✔) x1 ^ ¬x2 ^ x3 ^ ¬x4 ^ x5 ^ x6^ ¬x72) x1 v ¬x2 v x3 v ¬x4 v ¬x5 v x6 v ¬x7 — не подходит, в первом x1 = 1, 1 v ... = 1.3) ¬x1 v x2 v ¬x3 v x4 v ¬x5 v ¬x6 v x7 — не подходит, в третьем x7 = 1, ... v 1 = 1.4) ¬x1 ^ x2 ^ ¬x3 ^ x4 ^ x5 ^ ¬x6 ^ x7 — не подходит, для второго получается 0 ^ ... = 0.
3. Дан фрагмент таблицы истинности выражения Fx1 x2 x3 x4 x5 x6 x7 F? ? ? 1 ? 0 ? 0? ? ? 0 ? ? 1 10 ? ? 1 ? ? ? 0где знак ? - пустые клеткикаким выражением может быть F?✔) x1 ^ ¬x2 ^ ¬x3 ^ ¬x4 ^ x5 ^ x6 ^ x72) ¬x1 v x2 v x3 v ¬x4 v ¬x5 v ¬x6 v ¬x7 — в последнем x1 = 0, ¬0 v ... = 1.3) x1 ^ x2 ^ ¬x3 ^ x4 ^ x5 ^ ¬x6 ^ x7 — во втором x4 = 0, ... ^ 0 ^ ... = 0. 4) x1 v ¬x2 v ¬x3 v ¬x4 v ¬x5 v ¬x6 v ¬x7 — в первом x6 = 0, ... v ¬0 v ... = 1.
У Ани синяя по условию.
У Вари не белая (и не синяя, так как она у Ани). Значит, красная.
Остаётся одна белая флешка. Она у последней девочки: у Маши.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
1.Начало. 2.Взять чайник. 3.Налить в чайник воды. 4.Поставить чайник кипеть. 5.Взять кружку. 6.Поставить на стол. 7.Открыть шкаф. 8.Взять заварку. 9.Закрыть шкаф. 10.Положить заварку в кружку. 11.Взять горячий чайник. 12.Налить кяпиток в кружку. 13 .Поставить чайник на место. 14. Конец