7111216
Вроде так должно быть
Var
x, y: real;
begin
write('Введите число X: ');
readln(x);
if x >= 0 then begin
y := sqrt(x) + 3;
writeln('y = ', y);
end
else writeln('Решения нет, X - отрицательное');
end.
81920,5120,175921860444160,128849018880
Ответ:
a b c d e f
12*10=120
пароль :120 a b c d e f
тогда 20 паролей занимают 20 *5 =100бит
Ответ 100