var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
"Впервые продемонстрировал огромные потенциальные возможности применения двоичной системы для вычислений ещё изобретатель логарифмов шотландский математик <span>Джон Непер (1550-1617)."
</span>В 1617 году Джон Непер <span>изобрел </span>счетное устройство (па́лочки Не́пера, или не́перовы па́лочки), призванное облегчить арифметические вычисления. Устройство состояло из брусков с нанесенными на них цифрами от 0 до 9 и кратными им числами. Для умножения какого-либо числа бруски располагали рядом так, чтобы цифры на торцах составляли это число. Ответ можно было увидеть на боковых сторонах брусков. Помимо умножения, палочки Непера позволяли выполнять деление и извлечение квадратного корня.
Гутер Р. С., Полунов Ю. Л. Двоичная арифметика в инструментальном счете у Джона Непера // Историко-математические исследования. Вып. 23. М.: Наука, 1978. С. 156-167.
Частота дискретизации 22.05 кГц = 22050 Гц означает, что в секунду делается 22050 отсчетов уровня звука. Каждый отсчет в одном канале звука кодируется 16 битами, что составляет 16/8 = 2 байта. В стереофайле каналов два, потому на отсчет требуется 2×2 = 4 байта. Секунда звука кодируется 4×22050 = 88200 байтами. А пять секунд потребуют 5×88200 = 441000 байт.
При однобайтной кодировке символ занимает 1 байт, поэтому в документе будет 441 000 символов.
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
