N=64 i=6 бит/1пикс
64*64*6/2^13=2^6*2^6*2*3/2^13=2^13*3/2^13=3 Кб
<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7
26. Так как до выполнения цикла значение A [2,3] = 5, то подставляем это число в цикл.
I = 2.
J = 3.
A [i,j] = 5+2*(2+3) = 5 + 2*5 = 15.
Ответ: Б.
27. Данная программа вычисляет количество положительных элементов массива.
Приведем в пример произвольный массив: [4, -7, 10].
Выполним программу.
X {1} > 0
Да
K = 1.
X {2} > 0
Нет
X {3} > 0
Да
K = 2.
Итого: 2 положительных элементов массива, значит программа вычисляет количество положительных элементов массива.
Ответ: Г.
28.
Цикл выполняется до тех пор, пока b >= a.
A = 12.
B = 46.
1. B = b - a = 46 - 12 = 34.
2. B = b - a = 34 - 12 = 21.
3. B = b - a = 21 - 12 = 9.
В итоге тело цикла выполняется 3 раза.
Ответ: 3.
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
Подсчитаем количество символов: 159*50*60=381600 символов
Переведем байты в биты: 333900*8=2671200 бит
"Вес" 1 символа =2671200 бит/381600 символов =7 бит
Мощность алфавита считается так: N=2^i, где N - мощность, i - "вес" 1 символа в битах
N=2^7=128