program raf105;
const
n = 10;
var
x: array[1..n] of integer;
i: integer;
a,b,c: boolean;
begin
a:= True;
writeln('Заполните массив из ',n,' чисел');
for i:=1 to n do
begin
readln(x[i]);
a:= (x[i] = 0) and a;
b:= ( not(c) and (x[i] > 0) ) or b;
c:= ( not(b) and (x[i] < 0) ) or c;
end;
if a
then writeln('Все числа равны нулю');
if b
then writeln('Первое ненулевое число - положительное');
if c
then writeln('Первое ненулевое число - отрицательное');
end.
PascalABC 3.4.2
Объяснение:
1.
a = 3
b = 15
c = 7
I - ?
K = a*b*c=3*15*7 = 315 символов
Если информационный вес i = 8 бит, то
I = k*i
I = 315*8 бит = 315 байтов
ответ: Объём в 315 байтов займёт текст в оперативной памяти.
2. Решение:
1. Количество точек -225
2. Так как всего 2 цвета черный и белый. то глубина цвета равна 1 ( 2^1 =2)
3. Объем видеопамяти равен 225*1=225 бит
3. V=2Int,где 2-стерео,I - разрядность карты, n - частота дискретизации, t - время звучания.
Значит V=2*8*1000*3=48 000 бит,делим на 8, это 6000, а затем на 1024 - 5,86 Кбайт
4. Для хранения информации об одной точке необходимо 4 бита. Так как 16= 2^4. найдем общее количество бит:
64*32*4=8192 бит
В байтах получим 8192/8 = 1024 байт