Пароль формируется из 6 символов,
каждый символ кодируется i - битами.
2^i =6; ---> 2^2< 6 < 2^3 ---> 3 бита для кодировки одного символа.
В одном пароле 11 символов, длина пароля =3*11=33 бита.
Каждый пароль - целое количество байтов :
33 бита =33:8 байтов =5 байтов
Для 20-ти паролей: 5*20=100 байтов.
Ответ:
¬(A&B ∨ ¬C) или, после упрощения, ¬A&C ∨ ¬B&C
Объяснение:
¬(A&B ∨ ¬C) можно упростить.
По правилу де-Моргана ¬(A&B) & C
По правилу де-Моргана (¬A ∨ ¬B) & C
Раскроем скобки ¬A&C ∨ ¬B&C
Var n,i:integer; a,b:real; l:boolean;
begin
write('N='); readln(n);
l:=true;
write('a='); readln(a);
for i:=2 to n do
begin
write('a='); readln(b);
if b<a then l:=false;
a:=b;
end;
writeln(l);
<span>end.
Пример:
N=5
a=2
a=4
a=5
a=7
a=9
True</span>
Формулу сократить до
<span>1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде
var
x,y,z,s:integer;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
writeln('Введите значение X);
</span>readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено');
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.
Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
<span>end.</span>