Нужно написать код для каждого задания. Код нужно сделать на языке Паскаль.

1.

1) 4*24*1000*16 ≈ 3*2^19 (бит/с)

2) 900 Мбайт=9*25*4*2^23 бит =9*25*2^25 бит

3) (9*25*2^25) / (3*2^19) = 3*25*2^6 (c) = 75*64 (c) =75*64/60 (мин)= 80(мин)                                

ответ  80 мин

2.

1)  640*480=(5*2^7)*(15*2^5)=5*15*2^12 пикселей

2) 240 Кбайт=15*2^4 *2^13 бит=15*2^17 бит

3) (15*2^17) / (5*15*2^13) = 2^4 / 5  бит =3,2 бит = 3 бит - 1 пиксель

4) 2^3=8 цветов                ответ 8 цветов

3.

1) 80 *0,7=56 Мбайт - cжатый файл

 80 Мбайт =5*2^4 *2^23 бит=5*2^27 бит

  56 Мбайт=7*2^26 бит

2)  5*2^27 / 2^22 = 5*2^5 (с) = 160 секунд - время несжатого файла

3)  7*2^26 / 2^22 =7*2^4 (c) = 112 (c)

4) 23(c)+12(c)+112(c)= 147 (c) - время сжатого файла

5) 160-147=13 (с)    ответ передача сжатого файла быстрее на 13 с

var

 k,h:integer;

 p,s,x,eps,n,p1:real;

begin

 x:=10;

 while (x<0) or (1<x) do begin   {Условие ввода 0>x>1}

   write('Введите X = '); readln(x);

   end;

 eps:=1e-@;   //В место @ нужно ввести погрешность в положительном числовом виде (вычислить до @-го знака после запятой)

 p:=x;

 n:=2;

 p1:=1;

 h:=1;

 while abs(p)>eps do   {Условие выхода: очередной член ряда по модулю меньше eps}

 begin

   writeln('[Отладка]  ',eps,'    ',p,'    ',s,'    ',n);   //отладка

   for var i:=0 to 1 do begin

     k:=k+1;

     p1:=p1*k;

   end;

   h:=h*-1;

   p:=h*(power(2*x,n))/p1;   {Вычисление очередного члена ряда}

   s:=s+p;

   n:=n+2;

 end;

 writeln('cos(2x-1) = ', s);

end.