var a:array [1..20] of integer;
i,k:integer;
BEGIN
k:=301;
for i:=1 to 20 do begin
while (k mod 17<>0) and (k mod 13<>0) do
k:=k+1;
a[i]:=k;
k:=k+1;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
Var
i,n,a,b,c:int64;
Begin
a:=0; b:=1;
Write('Введите число n: '); Readln(n);
Write('Число фибоначи под номером ',n,': ');
Case n of
0:write('0');
1:write('1') else Begin
for i := 2 to n do Begin
c:=a+b;
a:=b;
b:=c;
End;
write(c);
End;
End;
End.
С Р Е Д А
сре , еда , ред , сда , дас , рес , аде , дер , дар , сер , сар , рад , рас , ера , еса ,асе , - вроде бы все 16 вышло
Для кодирования одного из шести символов необходимо log(2)6 ≈ 3 бита.
Для кодирования пароля из 23 символов необходимо
23*3 = 69 бит = 69/8 байт ≈ 9 байт.
Для 50 паролей: 50*9=450 байт.