<span>var a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(50);
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln ('summa=',s);
readln;
end.</span>
65536=2 в 16 степени, значит 1 пиксель кодируется 16 битами (разрешение)
Всего пикселей = 640*480 = (2 в 7)*5*(2 в 5)*15=(2 в 12)*75
Весь объём = (2 в 12)*75*16=(2 в 16)*75=600 кбайт
Кои-8 - 1 символ = 8 бит
160 бит / 8 бит симв = 20 симв
Число цветов в палитре-N,
Объем графического файла-I,
Количество пикселей-K
Глубина цвета-I
Формулы:
I = K·i
N = 2 в степени i
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.