Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
Бгиииии дега. Лчщвькллвьяжяд38287#;@&
[email protected]*1*#&'сшррп,бял73718183837376аьвьвлсшсшашвлядйдфщ 272&17 вьвллыц 77.
Объем дискеты 1457664 = 2847 * 512 байт
Для несжатого звука (в mp3 зависит от битрейта)
а) 1 байт * 8000 = 8000 байт/с (1 байт= 8 бит)
1457664 / 8000 = 182.208 секунд
б) 2 байта * 48000 = 96000 (2 байта = 16 бит, 48 кГц - в этом параметре уже учтено, что звук стерео, на каждый канал по 24 кГц)
1457664 / 96000 = 15.184 секунд
На самом деле чуть меньше, т.к. еще должна быть записана "шапка"файла размером 44 байта, но, вероятно, в задаче это учитывать не надо
1 символ - 5 бит. 145 символов - 725 бит