В общем
N - 64 символьный алфавит
K -количество букв
I - вес сообщения
N= 2 в степени 6 значит 1 символ весит 6 бит
соответственно K*степень из N = I
F:/DOCUM/LENA/letter.doc
F:/DOCUM/LENA/Tables.xls
F:/DOCUM/IVAN/my.doc
F:/ARCHIV/MAIN/letter.doc
F:/ARCHIV/MAIN/my.doc
F:/ARCHIV/1.zip
Надо найти минимальное количество бит, для записи 750 учащихся. Количество бит - целое, а количество вариантов записанное заданным количеством бит
Надо найти минимальное b, чтобы N было больше 750.
Значит, минимальное кол-во бит, при помощи которого можно записать коды 750 учащихся b = 10.
Соответственно информационный объем сообщения о кодах 180 учащихся = 180 * 10 = 1800 бит = (1800 / 8) байт = 225 байт
Var
a: array[1..50] of integer;
max, maxi: integer;
begin
Randomize;
for var i := 1 to 50 do a[i] := Random(1, 1000);
writeln(a);
max := a[1];
maxi := 1;
for var i := 1 to 50 do
if a[i] > max then begin
max := a[i];
maxi := i;
end;
a[maxi] := 0;
writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
writeln(a);
<span>end.</span>
1)
program ex1;Var a,b:real;begin read(a,b); write(a-b);end.
2)
program ex1;Var a,b:real;begin read(a,b); write(a/b);end.
3)
program ex1;Var a,b:real;begin read(a,b); write((a+b)/2);end.