Определить информационный объём изображения размером 1024х768 пикселей и состоящего из 64 цветов

Бит/пиксель бит в несжатом изображении

Sub m1()       dim i as integer, m as integer, n as integer       for i = 1 to 10               m = cells(i, 1)               n = cells(i, 2)               if m > n then                       cells(i, 3) = m               else                       cells(i, 3) = n               end if       next i end sub

Как-то условие не понятно. если требуется найти сумму двух чисел, то программа может быть такой: var a1,a2,s: integer; begin a1: =11; a2: =13; repeat a1: =a2; a2: =a2+2; s: =a1+a2; until s> =150; writeln(a1,'+',a2,'=',s); end.результат работы программы: 75+77=152если нужно найти сумму 11+13+15+ по ка не получится > =150, то это можно сделать так: var a,s: integer; begina: =11; s: =0; repeatwrite(a,'+'); s: =s+a; a: =a+2; until s> =150; writeln('=',s); end.результат: 11+13+15+17+19+21+23+25+27+=171