Дверной звонок мишиной квартиры позволяет загрузить новую мелодию через usb-порт. миша решил поменять старую мелодию на новую с программы обработки звука. для этого стерео мелодию с частотой дискретизации 48кгц и 16 битной разрядностью он преобразовал в моно мелодию с частотой 24кгц и той же разрядностью. в результате конвертации файла его размер составил 375 килобайт. определите исходный размер файла. 1) 375; 2) 750; 3) 1125; 4) 1500.

Ответ под номером 4, если надо было выразить в килобайтах.

Уменя получилось 6216 dim i as integer  dim s as integerdim d as integerfor i = 1000 to 9999              s = cint((cint(mid(cstr(i), 1, ^ 2 + (cint(mid(cstr(i), 2, ^ 2 + (cint(mid(cstr(i), 3, ^ 2 + (cint(mid(cstr(i), 4, ^ 2)            if s mod 2 = 0 or s mod 3 = 0 then d += 1        next        msgbox(d)p.s.прошу прощения за прошлый ответ, перепутал и соединил две =)

Var       x, s, k, i: integer; begin       for i : = 1000 to 9999 do       begin               x : = i;               s : = 0;               while x > 0 do               begin                       s : = s + (x mod 10) * (x mod 10);                       x : = x div 10;               end;               if (s mod 2 = 0) or (s mod 3 = 0) then begin                       k : = k + 1;                       {writeln(i: 5,s: 5); }               end;       end;             writeln(k); end. ответ 6216