5. определить объем видеопамяти в килобайтах для графического файла размером 640480 пикселей и палитрой из 32 цветов

v=640*480*5=1 536 000 бит =187,5килобайт

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

вроде бы 100*100=10000 бит=1250 байта