ответить на во своими словами.

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

program sdss;

uses crt;

var a,b,i: integer;

      c: real;  

begin

clrscr;

readln(a,b);

for i: =a to b do

  c: c+i;

c: =c/(b-a+1);

writeln(c: 2: 4);

readkey;

end. 

для кодирования 64 цветов нужно 6 бит (2^6 = 64). для 600х450 пикселей потребуется n = 600*450*6 = 1620000 бит.

если предположить некомпактный формат хранения, при котором вышеуказанные 6 бит содержатся в одном байте (а 2 бита этого байта не используются), то для хранения n бит потребуется n/6 = 600*450 = 270000 байт = 270000/1024 кбайт = 263.6719 = 264 кбайта (примерно).

если же предположить чуть более компактный формат хранения, при котором 24 бита размещают в 3-х байтах, то для хранения n бит потребуется (n/24)*3 = 202500 байт = 202500/1024 кбайт = 197.7539 = 198 кбайт (примерно). в этом случае количество кбайт будет немного меньше, чем в первом.

сначала 9кбайт переделываем просто в байты. поэтому 9*1024=9216. потом переводим в биты? 9216*8=73728. и делим на 2048. получается 36 секунд.