При регистрации в информационную систему пользователю необходимо придумать пароль. Длина пароля составляет 12 символов. Каждый символ пароля кодируется минимальным количеством бит, а на весь пароль отводится наименьшее целое количество байт.

👇

Ответ:

swvw

24.09.2021

ответ-13

Объяснение:

k бит позволяют кодировать 2k символов, поэтому для кодирования 26-символьного алфавита требуется 5 бит (ведь . Для хранения 10 символов требуется бит. Минимальное количество байт, вмещающее в себя 50 бит - 7 байт (56 бит).

Для хранения данных об одном сотруднике требуется 20 байт данных. Из них 7 байт отводится на хранение пароля. Следовательно, для хранения дополнительных сведений о сотруднике отводится 13 байт.

ответ: 13.

4,6(53 оценок)

Ответ:

chamk

24.09.2021

Відповідь:

sport1133225544

Пояснення:Такой пароль сойдет ?

4,7(80 оценок)

Открыть все ответы

Ответ:

vladkanter

24.09.2021

1. Современное решение

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var min:=a.Min;
a.Transform(x->x<0?x*min:x); a.Println
end.

Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864

2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)

uses Crt;
const
nn=100;
var
i,n,min:integer;
a:array[1..nn] of integer;
begin
ClrScr;
Randomize;
Write('n='); Read(n);
min:=100;
for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
Writeln;
for i:=1 to n do
    if a[i]<0 then a[i]:=a[i]*min;
for i:=1 to n do
    Write(a[i],' ');
Writeln;
ReadKey
end.

4,7(87 оценок)

Ответ:

danatabilov

24.09.2021

Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.

Код:
procedure calculateSum(str : string);var s0 : string; number, sum : real;begin sum := 0; foreach s0 in Regex.Split(str, '\++') do begin number := StrToFloat(s0); if (number > 0) then begin sum := sum + number; end; end; writeln(str + '=' + sum);end;
var s : string;begin write('Введите пример: '); readln(s);
calculateSum(s); end.
Склавиатуры вводится строка, содержащая пример на суммирование 2=х чисел. подсчитать сумму и вывести