№ 1. Размер файла в байтах в этой задаче равен 2 умножить на частоту дискретизации умножить на <span>время звучания умножить</span> на разрядность регистра (разрешение), все это разделить на 8.
Или формулой: A=2*D*T*I<span>/8.
Переведем размер из килобайт в байты: 3400 Кбайт = 3400*1024 байта = 3481600 байт.
Из формулы выразим время: T = (8*А) / (2*D*I) = (8*3481600) / (2*64000*16) = 13,6 (секунд).
№ 2. Сначала рассчитаем информационный вес одного кадра фильма.
256 цветов можно закодировать с помощью 8 бит (2 в восьмой степени равно 256).
600*400*8 = 1920000 (бит) = 1920000 / 8 (байт) = 240000 (байт) - </span><span>информационный вес одного кадра фильма
Всего 36 кадров в секунду: 240000 * 36 = 8640000 (байт) - за 1 секунду
3 минуты = 3 * 60 </span>секунд = 180 секунд
180*8640000 = 1555200000 (байт) = 1555200000 / 1024 (Кбайт) = 1518750 (Кбайт) приближенно равно 1483 Мбайт .
№ 3. Аналогичен номеру 1. Только тут монодорожка, значит
A=D*T*I<span>/8 (без двойки впереди).
</span>D = (A*8) / (T*I) = ((1500*1024)*8) / (50*8) = 30720
Просто нарисовать 8 разноцветных треугольников и обвести их, но все вместе
1. Ответ:3. <em>В условном операторе перед ELSE не должно быть ";".</em>
2. Ответ:4. <em>Просто в программу вбиваешь код и проверяешь :)</em>
3.<em>Предположим у нас есть массив.</em>
If (a[i]<0) and (a[i] mod 6=0) then b[i]:=a[i] , где
<em>i-индекс</em>
<em>a[i],b[i]- элементы массива.</em>
<em><u>Т. е. мы смотрим, выполняется ли условие. Если да, то записываем это число в новый массив.</u></em>
Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
9412=16
8096=23
6472=19
1570=13
5971=22
