Считаем количество символов в парольном алфавите
10 (цифры) + 11 строчных + 11 прописных = 32 символа
5 бит на символ (2^5 = 32)
15 символов * 5 бит = 75 бит, при записи пароля округляем вверх до байта, получим 10 байт.
30 паролей * 10 байт = 300 байт
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of real;
i,j:integer;
Sr,B,C:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random()*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn;
End;
WriteLn;
WriteLn('Сглаженная матрица:');
For i:= 1 to N do
Begin
B:=A[i,1];
C:=A[i,2];
A[i,1]:=(B+C)/2;
For j:= 2 to M-1 do
Begin
Sr:=(B+C+A[i,j+1])/3;
B:=A[i,j];
A[i,j]:=Sr;
End;
A[i,M]:=(B+A[i,M])/2
End;
For i:= 1 to N do
Begin
For j:= 1 to M do
Write(A[i,j]:6:3,' ');
WriteLn;
End
End.
Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 3=0 then
writeln('Делится на 3')
else writeln('Не делится на 3')
<span>end.</span>
Ответ:
1) Ввести два числа, сложить, удвоить. Вывести ответ.
2) Ввести число, возвести в квадрат. Вывести ответ. Передайте автору учебника, что у квадрата по определению только ОДНА длина стороны. Сторон четыре, а размер - один.
Объяснение: