1.рассчитайте объем видеопамяти, необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 1280x720 и палитрой из 32768 цветов. 2.размер сканируемого изображения 15x15 см. разрешающая способность сканера 1200x1200 dpi, глубина цвета i-32 бита. определить информационный объем файла с отсканированным изображением. 3.несжатое растровое изображение размером 256x256 пикселей занимает 64кбайта памяти. каково максимальное возможное число цветов в палитре изображения?

1

i = k * i (i - объем информации, k - кол-во пикселей, i - вес одного пикселя / глубина цвета)

k = 1280 * 720 = 921600 пикселей

по формуле или  

(n - кол-во цветов в палитре, i - глубина цвета)

глубина цвета бит

i = k * i = 921600 * 15 = 13824000 бит

13824000.0 бит = 1728000.0 байт = 1687.5 кбайт = 1.64794921875 мбайт = 0.0016093254089355469 гбайт = 1.57160684466362e-06 tбайт

13824000.0 бит = 13500.0 кбит = 13.18359375 мбит = 0.012874603271484375 гбит = 1.257285475730896e-05 tбит

ответ: 13824000

2

размеры:

1 дюйм = 2.45 см

если появляются дробные части, то округляем в большую сторону

15 * 1200 / 2.54 = 7087

15 * 1200 / 2.54 = 7087

i = k * i (i - объем информации, k - кол-во пикселей, i - вес одного пикселя / глубина цвета)

k = 7087 * 7087 = 50225569 пикселей

i = 32 бит

i = k * i = 50225569 * 32 = 1607218208 бит

1607218208.0 бит = 200902276.0 байт = 196193.62890625 кбайт = 191.59534072875977 мбайт = 0.18710482493042946 гбайт = 0.00018271955559612252 tбайт

1607218208.0 бит = 1569549.03125 кбит = 1532.7627258300781 мбит = 1.4968385994434357 гбит = 0.0014617564447689801 tбит

ответ: 1607218208

3

i = k * i (i - объем информации, k - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = i / k

k = 256 * 256 = 65536 пикселей

i = 64 kb = 64 * 1024 * 8 бит = 524288 бит

глубина цвета бит

кол-во цветов в палитре цветов

ответ: 256.0

- считаем что 1 гбайт = 2^30 = 1 073 741 824 байт

- '/' - разделить

- '*' - умножить

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.