1.
а)
var a, b: integer;
read(a, b);
writeln((a + b) / 2);
б)
var a, b, c, d, e: integer;
read(a, b,c, d, e);
writeln(a*a, b*b, c*c, d*d, e*e);
в) Не знаю это.
д) Решето Эратосфена.
2)
а)
array [1..n] of integer;
var c: integer;
c := 1;
read(n);
while //запускаем цикл для ввода значений массива и подсчёта произведения
read(a[n]);
c = c * a[n];
end;
writeln(c);
б)
array [1..n] of integer;
var c: integer;
read(a[0]);
c := a[0];
while //запускаем цикл для ввода значений массива и определения максимального элемента
read(a[n]);
if {
c > a[n];
} then c := a[n];
end;
writeln(c);
в)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел
if {
a[n] < 0;
} then c := c + 1;
end;
writeln(c);
г)
array [1..n] of integer;
var c: integer; //переменная-счётчик
while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов
if {
a[n] = a[0];
} then c := c + 1;
end;
writeln(c);
5 байт = 40 бит
8 килобайт = 8 000 байт
1 мегабайт = 1 000 000 байт
88 бит = 11 байт
9 байт = 72 бит
18 килобайт = 18 000 байт
4 мегабайт = 4 000 000 байт
152 бит = 19 байт
11264 терабайт = 11 264 000 гигабайт
1) 3байт = 24 бит
2)1536 бит < 1,5 килобайт (12000)
3)8192 байт > 1 килобайт (1000)
4)3072 байт > 3 килобайт (3000)
5)55000 бит < 7 килобайт (56000)
6)8192 байта > 8 килобайт (8000)