Определите размер файла в килобайтах если о нём известна следующая информация: стерео запись
уровней дискретизации: 256
разрешение: 24 бита
время записи: 5 минут 20 секунд​

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)