Во вложении приведена таблица истинности. В закрашенных столбцах строки не совпадают, следовательно, высказывания не равносильны.
№ 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
Var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do read(a[i]);
writeln('Разность=',a[9]-a[3]);
end.
var
n, i: Integer;
s: string;
begin
Write ('Введите натуральное число, больше 9: ');
ReadLn (n);
if n <= 9 then begin
Writeln ('Ошибка ввода!');
Exit;
end;
s := IntToStr (n);
if Length (s) mod 2 <> 0 then begin // проверка на четность
i := Length (s) div 2 + 1; // вычисление позиции центральной цифры
Delete (s, i, 1); // удаление центральной цифры
Writeln ('Результат: ' + s);
end else
Writeln ('Число цифр в числе четно.');
end;