№ 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
Uses crt;
var i,s,n:integer;
begin
s:=1;n:=0;
while (n<=0) do begin
writeln ('Введите неотрицательное число');
read (n);
end;
n:=n*2;
writeln ('Считаю все числа от 2 до ',n);
write ('1');
for i:=1 to n do begin
i:=i+1;
write ('*',i);
s:=s*i;
end;
writeln ;
writeln ('Произведение = ',s);
end.
P.s. Программа написана на языке Pascal ABC. По всем вопросам обращаться в комментарии !
Предполагается, что будет введено минимум одно значение. <span>var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.</span> <span>P.S. Если понравилось решение не забудь отметить как лучшше. </span>
По-перше треба поглядити на світлофор и якщо він зелений то іти якщо червоний то ні
Привет) принимай ответ)
00101010 (2)=0*2^7+0*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=0+0+32+0+8+0+2+0=42 (10)
