Бітова частота звукового файлу дорівнює 256 кбіт/с обсяг файла становить 5,69 мб. Визначте тривалість аудіо, вказавши кількість повних хвилин

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

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 кбайт (примерно). в этом случае количество кбайт будет немного меньше, чем в первом.