Дано:
375 байт * 8 = 3000 бит - объем этого сообщения
Р=500 символов
Решение:
3000÷500 = 6 бит (информ. вес каждого символа в этом сообщении).
Находим мощность алфавита по формуле <em>N = 2^i</em>
N = 2^6 = 64 (мощность этого алфавита)
Ответ: Вес- 6 бит, Мощность - 64 символа.
Program n_1;
var a, b: integer;
begin
randomize;
a:=random (1000) + 1;
while a <> b do begin
write ('Введи число!!!');
readln (b);
if b > a then writeln ('Перебор!!!')
else if b < a then writeln ('Маловато будет...')
end;
writeln ('Молодец! Угадал!');
readln();
end.
Можно 25.239.2.183.27
вроде так,но я не уверена
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.