<span>Переводим целую часть числа. Заменяем каждый разряд на код двоичной СС.
</span><span>0000 0
</span><span>0001 1
</span><span>0010 2
</span><span>0011 3
</span><span>0100 4
</span><span>0101 5
</span><span>0110 6
</span><span>0111 7
</span><span>1000 8
</span><span>1001 9
</span><span>1010 A
</span><span>1011 B
</span><span>1100 C
</span><span>1101 D
</span><span>1110 E
</span><span>1111 F
В итоге получится: </span>1111101001010110
Лазерный диск сканирует, жёсткий диск зачитывает
Ну тут всё надо перемножить и перевести в кБ.
30 с * 16000 Гц * 16 бит = 7 680 000 бит ( сек * 1/сек * бит = бит)
7 680 000 / 8 = 960 000 Байт (1 Байт = 8 бит)
960 000 / 1024 = 937,5 кБайт (1 кБайт = 1024 Байт, т.е. 2 в степени 10)
<span>
</span>
Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
<span>x, y:
2 1
Точка не принадлежит заштрихованной области</span>
1,2, 4, 7, 8
Плиз можно лучший ответ?