Какова ширина в пикселях прямоугольного 64-цветного неупакованного растрового изображения, занимающего на диске 1,5 мбайт, если его высота вдвое меньше ширины?

64=2^i

i=6 бит

пусть x - ширина, тогда 2x - длина

x*2x*6=1,5 мб

си:

1,5 мб=12582912 бит

x*2x*6=12582912

x=2048

ответ: 2048 пикселей

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.