Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.
Texture.bmp ну точечный рисунок , ну или просто фото в формате .bmp
Foto.doc документ Word?? Вроде это я так понял
Вес одной секунды стерео-файла: 48000*24*2 бит
Вес одной секунды моно-файла: 24000*16*1 бит
(48000*24*2):(24000*16*1) = (2*24*2) : 16 = 6.
Исходный файл больше в 6 раз.
F96(16) = 111110010110(2)
AF(16) = 10101111(2)
12F4(16) = 1001011110100(2)