Выражение не[x^2 + y > =3 и 2x+y> 0] и min(/x-y/, x^2+y^2 ) < = 7 истинно при следующий значениях набора переменных: 1) x=0 y =-7 2)x=-7 y=1 3)x=2 y=5 4) x=4 y=1

1) всего точек а=512*512= 262144 количество цветов n= 256, отсюда вычислим глубину цвета n=2^i   256=2^i i=8 объем изображения= n*a= 262144*8= 2097152 бит= 256 кбайт 2)аналогично предыдущей : n=2^i   16177216=2^i   i =24 n*a= (1024*768)*24= 18874328 бит= 2,25 мбайт 3)n=2^i   65536=2^i i=16 n*a=(1280*1024)*16= 20971520 бит= 2,5 мбайт 4)количество информации(бит) получим разделив объем файла(бит) на количество пикселей. i=(1,5*1024*1024*8)/(1024*512)= 24 бит 5)определим глубину цвета i=v/n, где v-объем изображения (бит), n - количество пикселей i=(16*1024*8)/(256*128)= 4 бит найдем количество цветов n=2^i n=2^4= 16 цветов 6)количество памяти на 1 страницу: 640*480*24= 7372800 бит= 900 кбайт количество страниц= (2*1024)/900= 2,28 ответ: 2 страницы

1) var   n, i, c, sum, sum2, c2: integer;     a: array of integer;   begin   sum : = 0;     sum2 : = 0;   c2 : = 0;   c : = 0;     readln(n);     setlength(a, n);     for i : = 0 to n - 1 do     begin     read(a[i]);       if(a[i] > 0) and (a[i] > 6) then       begin       sum : = sum + a[i];         c : = c + 1;       end;       if(a[i] mod 2 = 0) and (a[i] > 6) then       begin       sum2 : = sum2 + a[i];       c2 : = c2 + 1;       end;     end;     writeln(sum / c);     write(sum2 / c2);   end. 2) var   n, i, max, im: integer;   a: array of integer;   begin   im : = 1;   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     read(a[i]); if(i = 1) then max : = a[0];     if(a[i] > max) then     begin       max : = a[i];       im : = i + 1;     end;   end;   write((max * 2) / im); end.