Задача 1. Оцените информационный объём цифрового звукового моно файла длительностью 20 секунд при глубине кодирования 16 бит и частоте дискретизации 10000 Гц? Результат представить в Кбайтах, округлить до сотых,

1)var
n:longint;
begin
readln(n);
if n mod 5=0 then writeln('Число N является кратным чилслу 5')else
writeln('Чило N не является кратным числу 5' );
end.
2)
var
a,b,c:longint:
begin
readln(a,b,c);
if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B ');
end.
3)
var
a:longint;
begin
write('Сколько вам лет?');
readln(a);
if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!');
end.
4)
var
a:extended;
begin
readln(a);
if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны');
end.

1) Представим число -135 в двоичном коде: 135 = 100001112.

2) Для отрицательного числа все цифры числа заменяются на противоположные (1 на 0, 0 на 1), а в знаковый разряд заносится единица. Двоичное 10000111 имеет обратный код 1,01111000 .

3) По таблице триад переводим число из 2 в 8 систему счилсения:

1.01111000 = 1.360

4) 1.360 в десятеричном будет равно:

1 = 8^0*1 = 1 = 1 (целая часть);

360 = 8^-1*3 + 8^-2*6 + 8^-3*0 = 0.46875

Складываем целую и дробную часть и получаем: 1.46875

Объяснение: Если вы что-то не поняли, то буду рад объяснить в лс.