Var x,y,f,z,a:real;
begin
write('Введите x,z: ');
readln(x,z);
if x>13 then f:=-3/(x+1)
else f:=-(x*x*x)+9;
if x<1 then y:=x*x
else
if x>1 then y:=x*x*x
else y:=x;
if x>z then a:=y*z*z/(3+power(2,3/5))
else a:=2*cos(x+z);
writeln('F(x)=',f);
writeln('Y=',y);
writeln('A=',a);
<span>end.
Если функции power нет, то вместо
</span>if x>z then a:=y*z*z/(3+power(2,3/5))
напечатать
if x>z then a:=y*z*z/(3+exp(3/5*ln(2))
Есть 3 высказывания
1-правда
0-лож
первое высказывания это "и" 1+0=1, 1+1=1, 0+0=0, 0+1=0.
второе высказывание это "или" 1+0=1, 1+1=1, 0+1=1.
третье высказывание это "не" 1=0, 0=1.
3 кбайта, 4096 символов
В одном символе 3 кбайта / 4096 символов
3072 байта / 4096 символов
24 576 бит / 4096 символов = 6 бит на один символ
Воспользуемся формулой N = 2^i
2^6 = 64 символов в алфавите
Ответ: 64
<span>Цифры, знаки действий
Нотные знаки
</span><span>Буквы алфавита
Знаки погоды (облачно, пасмурно...)
</span>Дорожные<span> знаки </span>
I = M*N*i = 50*40*16 = 32000бит;
32000:5 = 6400бит/сек = 800байт/cек