Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.
Мощность алфавита можно расчитать по формуле N=2I
Но I мы не знаем
Объем сообщения 9Кб=9216байт=73728бит
Объем расчитывается по формуле T=K*I, выразим I=T/K, значит I=73728/9216 8 бит
Значит мощность равна 2 в степени 8, значит 256
Введите значения переменной MM=3sqr((1+M)*6) 576
Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
I = 5 Кбайт = 40960 бит
k = 5120
N - ?
N = 2 в степени i
I = i * k
i = I / k
i = 40960 / 5120 = 8
i = 8
N = 2 в 8 степени
N = 256
Ответ: Мощность алфавита равна 256.