Если я верно понял задание, то это так:
x = 15.1
z = 65.3
y = (x + 1) / 5 + (z + 1)^2
disp(y)
Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Var
step: array[1..8] of real;
i, x: integer;
begin
readln(x);
step[1] := 1 - x;
step[2] := step[1] * step[1];
step[3] := step[2] * step[1];
step[4] := 3 * x;
step[5] := step[4] * x;
step[6] := 1 - step[5];
step[7] := step[6] * x;
step[8] := step[3] + step[7];
for i := 1 to 8 do
write(step[i], ' ');
end.
Размер изображения 64*64 - значит всего точек в изображении 64*64=4096 точки.
для хранения выделено 512 байт, или 512*8 = 4096 бит
итого: на одну точку приходится 4096/4096 = 1 бит (информации для кодирования цвета одной точки)
по формуле N=2(в степени i), где N - кол-во цветов, а i - кол-во бит информации на точку, получаем, что наше N = 2 (в степени 1) = 2.
Т.е. Ответ 2 цвета