Короче как-то так, будут вопросы пиши в ЛС)
№6 1)
Расписываем код адреса по байтам (по 8 бит):
1 2 3 4
11001100 10011000 10111110 01000111 в 2с/с каждый байт переводим из 2с/с в 10с/с
1 байт = 2^7 +2^6 +2³+2² =128+64+8+4 =204
2 байт =2^7 +2^4 +2^3 =128+16+8 =152
3 байт =2^7+2^5+2^4+2³+2²+2 =128+32+16+8+4+2=190
4 байт =2^6+2²+2+1=71
IP- адрес 204.152.190.71
№6 2) - аналогично 1)
1 2 3 4
11011110 11000011 1010010 00110010
1 байт = 2^7+2^6 +2^4+2³+2²+2=128+64+16+8+4+2 =222
2 байт = 2^7+2^6 +2 +1=195
3 байт = 2^7 +2^5 +2=162
4 байт= 2^5+2^4+2 =50
IP - адрес: 222.195.162.50
Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6
1. ¬(A*B+¬C)
По закону де Моргана раскрываем скобки:
(¬А + ¬B) * C
В принципе уже упрощена, но по закону дистрибутивности еще можно записать как
¬А * С + ¬B * C
2. (x+z)*(x+¬z)*¬y
По закону склеивания выражение (x+z)*(x+¬z) = x
То есть все выражение будет иметь вид x*¬y