Разрешение экрана составляет 800*600 пикселей. каждый пиксель может быть окрашен в один из 127 цветов. для кодирования всего изображения на экране

800x600 = 480000 пикселей. 127 цветов = 2^7 разных значений, значит для хранения 1 пикселя нам потребуеться 7 бит, а соответственно 1 байт. так что, если надо ответ в битаз, то 480000 пикселей * 7 бит = 3360000 бит, а если в байтах, то 480000 пикселей * 1 байт = 480000 байт.

400000 пикселей наверное,ну тогда 400000 делим на 127,не делится,то есть делится но с остатком или я лунатик=)

//pascal abc.net v3.0 сборка 1111 var   i,a,b: integer;   ar: array[1..10] of integer;   procedure odddec(var a,b: integer);     //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a: =a-b; end; procedure notoddinc(var a,b: integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a: =a+b; end; begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('array: '); for i: =1 to 10 do //весь массив   begin;   ar[i]: =random(-20,80); //случайные числа от  -20 до  80 включительно   write(ar[i]: 4); //вывод   if odd(i) then odddec(ar[i],b) else notoddinc(ar[i],a);     {если нечётное, то первая процедура, иначе вторая. обращаю внимания на то, что элементы меняются сразу после вывода}   end; writeln; writeln('final array: '); //вывод получившегося массива for i: =1 to 10 do write(ar[i]: 4); end. пример ввода: 20 10 пример вывода: array:   10   16   0   60   23   4   22 -20   4   55 final array:     0   36 -10   80   13   24   12   0   -6   75   

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ');   writeln('максимальная длина цепочки "а" равна ',       s.matches('(a+)').select(m-> m.value).sorteddescending.       take(1).joinintostring.length) end. пример введите строку: tbtgt adaaad aa sdfsfsaaaaawe dsssfsd dfdsaaaaaaaaasdfsf gdff fsaaaaaaqe максимальная длина цепочки "а" равна 9