Если я правильно понял то 1024 цвета, может содержать 1 пиксел.Если так то начнём: 1024 =2^10 цвета можно закодировать 10 битами. то есть на 1 пиксель отводится 10 бит. Потом считаем сколько пикселей находится в нашем изображении: это получается 200*150=30000 пикселей. Умнажаем кол-во пикселей на размер памяти которой надо для 1 пикселя: 30000*10=300000 бит. осталось перевести это в кбайты. 1 байт=8 бит 1кбайт=1024байта 1кбайт=1024*8=8192бита потом делим 300000бит на 8192 и получается 36.6 или приблизительно 37 кбайт
var a,b,c:integer; begin read(a,b,c); if (a > b) and (a > c) then write(a) else if (b > a) and (b > c) then write(b) else write(c); end. В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку: Procedure btn1Click; var a, b, c, max: integer; begin a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты) b:= StrToInt(edt2.Text); c:= StrToInt(edt2.Text); if (a > b) and (a > c) then max:= a; else if (b > a) and (b > c) then max:= b; else max:= c; edt4.Text:= 'Максимальное число' + max; //или ShowMessage(Максимальное число' + max); end.
Знаки: ясно пасмурно дождь облачно снегсильный ветер