begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
Для записи одного из семи значений требуется log(2)7 ≈ 3 бита.
Запись 120 значений: 120*3 = 360 бит = 360/8 байт = 45 байт
D:\Новинки \Кино\2015\Фантастика\<span>На марсе.mpg</span>
I =8 бит = 1 байт
I= 9 Кбайт = 9216 байт
k= 48*х*6 = 288*х
I=k*i
9216=288*x*1
x=9216/288=32
Ответ: 32 строки