Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>
n = float(input('С какой скоростью шли богатыри? '))
r = float(input('Какое расстояние им предстоит преодолеть? '))
print('Время в пути (в минутах): ' + str(r/n))
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
<span>1) Выразим Iт = 1/32 Мб в битах: 1/25 Мб = 1/25*220*23 = 218 бит;</span>
Iт = I*К, К = Iт/I, неизвестно I;
<span> I = log2N = log2256 = 8 бит – объем одного символа;</span>
<span> К = 218/8 = 218/23 = 215 = 32768 символов.</span>
<span>Ответ: в сообщении 32768 символов.</span>
<span>2)</span>
<span>Выразим Iт = 1/512 Мбайта в битах: 1/29М6 = 1/29*220*23 = 214 бит;</span>
<span>N = 21, неизвестно I;</span>
<span>Iт = К*I, I = Iт/К = 214/2048 = 214/211 = 23 = 8 бит - объем одного символа; 4. N = 28 = 256 символов — мощность алфавита.</span>
<span>Ответ: размер алфавита равен 256 символов.</span>