Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за 60 секунд . Затем тот же музыкальный фрагмент был оцифрован повторно с разрешением в 1,5 ниже и частотой дискретизации в 3 раза больше, чем в первый раз. Сжатие данных не производилось. Полученный файл был передан в город Б; пропускная канала связи с городом Б в 4 раза выше, чем канала связи с городом А. Сколько секунд длилась передача файла в город Б? В ответе запишите только целое число, единицу измерения писать не нужно.​

На одну чашу весов поместим 2 монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Допустим, перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. Иначе фальшивой окажется более тяжелая из двух сравниваемых монет.

//PascalABC.NET 3.2 сборка 1318

Const
  n=7;
  Var
   ma:array[1..n,1..n] of integer;
  countn,countp,i,j:integer;
  sr:real;
begin
for i:=1 to n do
  for j:=1 to n do
    begin
      readln(ma[i][j]);
      if ma[i][j]>0 then inc(countp) else
        if ma[i][j]<0 then inc(countn);
    end;
for i:=1 to n do
  begin
    for j:=1 to n do
      write(ma[i][j]:4);
    writeln;
  end;
writeln('Count of positive=',countp,', count of negative=',countn);
 for j:=1 to n do
  begin
  sr:=0;
    for i:=1 to n do
    sr+=ma[i][j];
  writeln(j,' ',sr/n);
  end;
end.