1
375 байт = 375*8 бит = 3000 бит всего, значит на каждый символ приходится:
3000 / 500 бит = 6 бит
6ю битами мы может закодировать <span> различных символов.</span>
ответ. не более чем 64 2
Число символов в сообщении равно:
Значит на каждый символ приходится:
9000 / 14400 байт = 9000 * 8 / 14400 бит = 5 бит
это информационный вес каждого символа.
с помощью 5 бит можно закодировать <span> различных символов.</span>
<span>ответ. 5 бит, 32 символа так надеюсь</span>
В любой такой последовательности при перестановке двоек и единиц результат не меняется. Например, 121121 и 111122 дадут один и тот же результат. Поэтому из любой последовательности сделаем наименьший номер (т.е. сначала идут все единицы, затем - двойки). Не забудем так же, что 2 и 3 взаимно просты, поэтому при разных количествах единиц и двоек результаты будут различны.
Т.к. всего команд 6, то чисел будет лишь 7:
111111
111112
111122
111222
112222
122222
222222
Ответ: 7
//4)
var
x1, y1, x2, y2, x3, y3, x4, y4: integer;
s, sc: real;
function linelength(x1, y1, x2, y2: integer): real;
begin
linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
procedure ger(a, b, c: real);
var
p: real;
begin
p := (a + b + c) / 2;
sc := sqrt(p * (p - a) * (p - b) * (p - c));
end;
begin
write('1:');readln(x1, y1);
write('2:');readln(x2, y2);
write('3:');readln(x3, y3);
write('4:');readln(x4, y4);
ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3));
s := s + sc;
ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3));
s := s + sc;
writeln(s);
end.
//3)
var
a, b, c: integer;
function sce(var a: integer): integer;
var
sc, c: integer;
begin
while a <> 0 do
begin
c := a mod 10;
a := a div 10;
sc := sc + c;
end;
sce := sc;
end;
begin
read(a, b, c);
if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else
if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else
if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else
if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны');
end.
<em>MS-DOS QBasic</em>
<em>Версия 1.0</em>
<em>Copyright (C) Microsoft Corporation, 1987-1991.</em>
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
a(i) = 101 * RND - 50
PRINT a(i);
s = s + a(i)
NEXT i
PRINT
m = s / n
k = 0
FOR i = 1 TO n
IF a(i) > m THEN k = k + 1
NEXT i
PRINT "k="; k
<u>Пример</u>
n=15
-13 17 43 -39 -20 -13 -5 32 12 -10 22 -24 31 6 -19
k= 7
VB.
Dim A() As Integer
Randomize()
Dim k As Integer
Dim n As Integer
n = Rnd() * 100 + 1
ReDim A(n)
For k = 0 To n
A(k) = Rnd() * -1000 + 500
Next
Dim Dump As Integer
Dim u As Integer
u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " & n)
ReDim Preserve A(n + 1)
For k = n + 1 To u + 1 Step -1
Dump = A(k)
A(k) = A(k - 1)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
A(k - 1) = Dump
Next
Подробнее - на Znanija.com - znanija.com/task/4209522#readmore