1.
x=-3 y=-2
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-2 y=-1
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=-1 y=-0,5
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=-0,25
x<0 (нет)
x=x-5
y=y+3
x=-5 y=2,75
2.
x=-1 y=4
x<0 (да)
x<y (да)
x=x+1
y=y/2
x=0 y=2
x<0 (нет)
x=x-5
y=y+3
x=-5 y=5
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2;
var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
(y>0) and (y<4) and (Abs(x)<2);
if p then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
Размер цифрового стереофайла измеряется по формуле:
A = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
64 кГц=64000 Гц;
32 Мбайт = 32*1024 Кбайт = 32*1024*1024 байт;
16 бит = 2 байта
T = 32*1024*1024 / (2*64000*2) = 131,072 c