Маша очень любит петь у костра. И вот летом её пение решили записать на диск. Проводилась стерео запись (двухканальная) с 16-битным разрешением и с частотой дискретизации 48 кГц. После того как записали все её песни, был получен файл размером 4125 Мбайт. Сжатия данных решили не приводить. Найдите сколько времени (в часах) надо затратить, чтобы послушать все машины песни. ответ запишите целым числом, округлив по математическим правилам ОЧЕНЬ

6 часов

Объяснение:

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

program xxx;

  var i, n, s, k : integer;

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

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.