У нас сказано, что можно использовать в алфавите цифры, десять знаков препинания и 16 букв алфавита(если сразу считать в 2 регистрах).
10 + 10 + 16 = 36
N = 36
i = 6
i = 5 мы взять не можем, потому что тогда мы не сможем закодировать все символы.
Не столь точно сказано в задаче, сколько должно быть знаков в пароле, сказано только то, что их должно быть не более 16, но тогда ведь мы можем и 1 взять, странно это, поэтому лучше взять пароль, имеющий 16 знаков.
16 * 5 = 80 бит = 10 байт - 1 пароль
704 * 10 = 7040 Байт на 704 пароля.
ответ: 7040 байт
Var i, n, k, sum:integer ;
A:array [1..100]of Integer ;
Begin
//Запрашиваем кол-во элементов массива
Write (' N=') ;read (n) ;
//Заполняем массив случайными значениями от 0 до 25
// И выводим его на экран
For i:=1 to N do begin
A[i]:=random(26);
Writeln (' A[', i, ']=', a[i]) ;
End;
//Обнуляем переменные
K:=0;sum:=0;
//В цикле находим элементы, которые больше 8
//и меньше 13,считаем их кол-во и сумму
For i:=1 to N do begin
If((a[i]>8) and(a[i]<13)) then begin
K:=k+1;
Sum:=sum+a[i];
End;
End;
//Ввводим результат на экран
Writeln(' Кол-во элементов больше 8 и меньше 13:',k);
Writeln(' Их сумма ', sum) ;
End.
Объяснение:
Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы
