1)
uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.
2)
uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.
1) Хмм. Изображение — чисто равовая битовая карта? И скорее всего 256 (а не 265) цветов-то. В таком случае каждый пиксель битмапа можно закодировать одним байтом. В 1 кибибайте (имеется в виду же 1024 байт, так?) будет 1024 точки.
2) Чёрно-белое (два цвета, не путать с грейскейлом/монохромным) можно закодировать, скажем, по 1 биту на пиксель (0 - не светится, чёрный, 1 - светится, белый, или наоборот). Если в "цветном" 16-цветном было log_2 16 = 4 бита на пиксель, то следовательно можно выходной размер битовой карты считать (довольно грубо) занимающим в 4 раза меньше байт.
3) (2^10) * (2^8) в 786 КиБ => 786 / (2^8) = 3,0703. Ну то есть по 3 байта на пиксель. Это 2^(8*3) = 2^24 цветов. True color.
4) Информационный объем одной точки 16-цветного растрового изображения уже исследовался выше: log_2 16 = 4 бита на пиксель (пол байта).
