Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
Сначала массив из 40 элементов заполняется случайными числами.
Затем элементы массива меняются местами, т. е. 1-й элемент становится 40-м, а 40-й - первым, второй - 39-м и наоборот.
Иными словами, массив переворачивается.
800 * 600 = 480000 пикселей, так как глубина цвета 24 , 480000 * 24 = 11520000 бит, переведём 1440000 байт/1024 = 1406.25 кбайт, так как 4 страницы , 1406 * 4 = 5625 кбайт
128=, значит вес одного символа 7 бит.
30*7=210 бит.
Ответ: 210 бит.