1.Взять горшок
2.Поставить горшок.
3.взять землю
4.насыпать землю
5.вставить цветок.
ПОКА
01010101₂ = 0+2⁶+0+2⁴+0+2²+0+2⁰ = 64+16+4+1 = 85₁₀
11111000₂ = -(1111000₂) = -(2⁶+2⁵+2⁴+2³+0+0+0) = -(64+32+16+8) = -120₁₀
№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
Решение в прикрепленном файле.
Const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
<span>end.</span>