Var
<span>prin: boolean; </span>
<span>x, y: integer; </span>
<span>begin </span>
<span>readln(x); </span>
<span>readln(y); </span>
<span>if (x <= 0) and (x >= -3) and (y <= x + 3) then </span>
<span>prin := true </span>
<span>else if (x >= 0) and (x <= 3) and (y <= - x + 3) then </span>
<span>prin := true </span>
<span>else if (y <= 0) and (y >= -3) and (abs(x) <= 3) then </span>
<span>prin := true </span>
<span>else </span>
<span>prin := false; </span>
<span>if prin then writeln('принадлежит') else writeln('не принадлежит'); </span>
<span>end.</span>
Т=5 сек
I=8 бит
Н= 64 кГц
Стерео - х2
V-?
V=T•I•H•2
V=5•8•64000•2=5120000бит/8=640000байт/1024=625 килобайт
Ответ: 625 килобайт.
CLS
N = 0
DIM A(4,
7)
DATA
51,22,33,44,-25,76,-87
DATA
229,30,-81,882,43,84,85
DATA
37,88,99,10,34,33,23
DATA
34, 55, 66, -77, 86, 65, 32, 91
FOR i
= 1 TO 4
FOR j =
1 TO 7
READ
A(i, j)
PRINT
A(i, j);
IF A(i,
j) < 0 THEN
N = N +
1
END IF
NEXT j
PRINT
NEXT i
PRINT
<span>PRINT "N ="; N
</span>