Все расчеты будем делать в битах 1 байт это 8 бит 512*8*2847= 11 661 312 бит всего на дискете
а) 8*8 000*1=64 000 бит за одну секунду (единица это канал звука) 11 661 312/64 000=182.208 отбросил дробную часть и получим 182 секунды звука низкого качества это 3 минуты 2 секунды
б) 16*48 000*2=1 536 000 двойка в примере это два канала звука т.е. стерео. 11 661 312/1 536 000=7.592 отбросил дробную часть и получим 7 секунд звука высокого качества.
в ответ записать или точный расчет вместе с дробной часть или примерный т.е. целые секунды.
С ЦИКЛАМИ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифм. прогресии:'); Readln(n); For i:=1 to n do a:=a+d; Writeln(n, ' член арифметической прогресии равен : ', a); End. БЕЗ ЦИКЛОВ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифметической прогресии: '); Readln(n); Writeln(' ответ: ', a+d*(n-1)); End.
10*1024*8/4096=20 бит
Мощность алфавита: