Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Вероятность, того, что подошел автобус №25=1/2⁴=1/16
автобус №13 подходит к остановке в два раза реже, т.е. его вероятность 1/32. Следовательно 1/2⁵, 5 бит информации
В одном байте 8 бит. В одном килобайте - 1024 байт. В одном мегабайте - 1024 килобайт
1,7 Кб=1,7*1024*8= 13926,4 бит
3,3 Мб=3,3*1024*1024*8= 27 682 406,4 бит
7,7 байт=7,7*8=61,6 бит
Вот и все
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
А=247(8)=10100111
В=А9(16)=10101001
Ответ 1
⇔∈∫∵∑∵⇆∧↑∉,ω↑≈∉∈↑↑⊆↑⊅∴⊅∵∀⊂∑∞⊂∞⊃⊃∑∉∛∠∠㏑