5 символов в распоряжении
По формули хартли
N=2^i
5<2^3
I=3
Это столько бит весит 1 символ.
3*15= 45 бит на пароль, но нудно в байтах ,
=6 байт на пароль(8бит-1 байт)
6*30 паролей=180
Ответ : 180
Его создали для того чтобы создать такого робота, который мог бы взаимодействовать с людьми и помогать им, таким образом делая их жизнь легче и приятнее. И хотя сейчас еще не приходится говорить о том, что роботы способны выполнять какие-то особенно важные для человека действия, они уже могут стать помощниками для пожилых людей и инвалидов.
Сама по себе программа не дописана. Возможно, нужно такое решение.
Program esep8;
Uses crt;
var x,y,z,S,P:double;
begin
clrscr;
writeln('Введите: x,y,z');
readln(x,y,z);
S:=x+y+z;
P:=x*y*z;
If S>P then
write('Ответ: ',S,'>',P)
еlse If S<P then write('Ответ: ',S,'<',P)
else write('Ответ: ',S,'=',P);
readln;
end.
¬A∪ B - первая буква не гласная (согласная) или четвёртая согласная=
= первая или четвёртая буквы в имени согласные
подходят имена:
1 елеНа
2 Вадим
4 Фёдор
( не подходит антон, так как ни одна из 1 и 4 буквы
не согласные)
Program arr;
Const n=3;
var i, j, tmp, k, z:integer;
c:boolean;
a:array [1..n,1..n] of integer;
begin
c:=false;
for i:=1 to n do
for j:=1 to n do
read(a[i][j]);
for i:=1 to n do
for j:=1 to n do
begin
tmp:=a[i][j];
for k:=i+1 to n do
for z:=j+1 to n do
if tmp = a[k][z] then
c:=true;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i][j], ' ');
writeln;
end;
if c = true then
writeln('В данном массиве есть равные друг другу элементы')
else writeln('Элементы, равные друг другу, отсутсвуют в данном массиве');
end.