Подсчитайте количество целых двоичных чисел в диапазоне с 1101 по 011​
я в отчаянии

8, 1, 4, 1, 5, 9, 6, 7, 2

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

  256 цветов = 8 бит/пикс = 1 байт/пикс, 300*200=60000 пикс - общий размер изображения, 4 цвета - 2 бита/пикс, 60000*2=120000 бит - объём видеопамяти, 120000=15000 байт, значит максимально допустимый размер изображения равен 15000 байт, если палитра будет 256 цветов, то размер изображения будет 15000 пикселей, 15000=100х150, значит ответ: 100х150