Объем файла = 200*600*1 байт = 200*600*8 бит
2 мин = 120 с
Скорость передачи данных = 200*600*8/120 = 8000 бит/с
6 Мбайт = 6 * 2¹⁰ Кбайт = 6 * 2¹³ Кбит
6 * 2¹³ Кбит / 256 Кбит / c = 6 * 2¹³ Кбит / 2⁸ Кбит / c = 6 * 2⁵ c = 6 * 32 c = 192 c
6 * 2¹⁰ Кбайт / 2⁸ Кбайт / c = 6 * 2² c = 6 * 4 c = 24 c
T = 192 c + 24 c = 216 c
Ответ: 216 с
11010000 10100111 11010000 10010101 11010000 10100000 11010000 10011101
11010000 10010101 11010000 10100110 11010000 10011010 11010000 10010000
11010000 10101111
1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
<span>end.
2. </span>Program fg;
<span>Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
<span>end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
<span>end.</span></span></span>
Var a,b: integer;
<span>begin
</span><span> write('a = '); readln(a);
</span><span> write('b = '); readln(b);
</span><span> a:=a+b;
</span><span> b:=a-b;
</span><span> a:=a-b;
</span><span> writeln('a = ',a,' b = ',b);
</span><span>end.
</span>a = 15
<span>b = 20
</span><span>a = 20 b = 15
</span>
