Ответ:
230,4 кбайт
Объяснение:
1)14400 бит/с=1800байт/с~1,8кбайт/с
2)1,8X128=230,4кбайт
Ответ:
1. Использовать Робот
алг "Любое слово:)"
нач
нц пока справа свободно
закрасить
вправо
кц
вниз
вниз
нц пока слева свободно
закрасить
влево
кц
кон
2. Использовать Робот
алг "Любое слово-словосочетание:)"
нач
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
кон
3) Использовать Робот
алг "Любое словосочетание"
нач
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нч пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
кон
Program abc;
const<span> arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
</span>var<span> i, j: integer;
</span>begin
<span>
for i := 1 to 4 do
</span><span> begin</span><span>
for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;
</span><span> writeln();
</span><span> end;</span>
<span> writeln();
</span><span>
for i := 1 to 4 do
</span><span>begin
</span><span> j := arr[2][i];
</span><span> arr[2][i] := arr[3][i];
</span><span> arr[3][i] := j;
</span><span> end;
</span><span> for i := 1 to 4 do
</span><span>begin
</span><span> for j := 1 to 4 do
</span><span> begin
</span><span> write(arr[i][j], ' ');
</span><span> end;</span><span>
writeln();
</span><span> end;
</span><span>end.</span>
4 зад
1 кнопка это выключить
Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
