Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
итак, у нас есть файл, сжатый в два раза.
значит объем оригинального кода = 500кб * 2 = 1000кб
1000 кб = 1024000 байт или 8192000 бит (умножили на 8)
определим сколько бит приходитс на секунду записи:
8192000 бит / 30 сек = примерно 273066 бит в секунду. Известно что один отсчет занимает 16 бит, узнаем число отсчетов (частоту дискретизации)
273066/16 = примерно 17066 отсчетов в секунду.
Ответ: примерно 17.1 кГц