Для кодирования одного из 148 значков требуется log(2)148 ≈ 8 бит.
Объем сообщения = 80*8 бит = 80*8 / 8 байт = 80 байт.
Данные с твоим именем, пароль не должен никаким образом совпадать с логином.
Как у меня asywgwms2811***
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Программа:
var x,y: real;
begin
write('x, y: ');
readln(x,y);
if (y>=x*x)and(x<=1)
then writeln('принадлежит')
else writeln('не принадлежит');
end.
Пример:
x, y: 0.5 2
принадлежит