A) 3.234 - real
b) 14 - integer, byte (тоже может быть при некотором условии)
c) 10351 - integer
d) -0.2 - real
e) 64000 - integer
Это просто иррационально. Проще выровнять с помощью выравнивания.
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Dim i As Integer
Dim x As Integer
Dim Summ As Integer
i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
</span><span>Next
MsgBox(Summ)
</span>
Для хранения 1 символа необходимо log(2)12 ≈ 4 бита
Для хранения 1 пароля необходимо 15*4 = 60 бит = 60/8 байт ≈ 8 байт
(оба раза выполняем округление до целого в большую сторону)
Для хранения 20 паролей используется 20*8 = 160 байт,
на дополнительные сведения остается 300-160 = 140 байт
Дополнительные сведения для одного пользователя требуют:
140/20 = 7 байт