1) 82(16)=8*16+2=130(10). Ответ: 130
2) Объем сообщения 70х30х83=174300 байт, скорость передачи 33600/8=4200 байт/с, время передачи 174300/4200=41.5с
3) 45(8)=4*8+5=37(10). 10100001(2)=1+2^5+2^7=1+32+128=161(10). ответ: 161
4) 214/2=107 остаток 0. 107/2=53 остаток 1. 53/2=26 остаток 1. 26/2=13 остаток 0. 13/2=6 остаток 1. 6/2=3 остаток 1. 3/2=1 остаток 1. Ответ: 11010110
5) семестр (кодировка CP-866 "DOS")
Рабочая область, Панель инструментов, Палитра
//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
<span>PYTHON
x = <span>13
</span>for n in range(1,x+1):
----size = 0.5*n+<span>4
</span>----print("x("+ str(n)+") = 1/2 * "+str(n)+" + 4 = "+str(size))
print("=====================================================")
x = <span>10
</span>result=<span>0
</span>for i in range(1,x+1):
----suma = 2*pow(i,2)-<span>7
</span>----result += suma
----print("x("+ str(i)+") = 2 * "+str(i)+"^2 -7 = "+str(suma))
print("Suma = "+str(result))
Там де 4 полуси - ето чотири пробели</span>
Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3