<em>Если вы имели в виду, что мощность алфавита = 64, то:</em>
Дано:
K = 20
N = 64
Решение:
N = 64 => i = 6;
I = K * i
I = 20 * 6 = 120(бит)
Ответ: I = 120 бит.
Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
По формуле Хартли:
N = 2^i = 2^4 = 16
111:2 = 55 (остаток 1)
55:2 = 27 (остаток 1)
27:2 = 13 (остаток 1)
13:2 = 6 (остаток 1)
6:2 = 3 (остаток 0)
3:2 = 1 (остаток 1)
1:2 = 0 (остаток 1)
111[10] =1101111[2]
<span />
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
