Дано:
D = 44000Гц
i =16 бит
t = 1 мин = 60с
Найти:
I -?
Решение:
I = D * i * t
I = 44000 * 16 * 60 = 42240000 бит = 5280000 байт = 5156,25Кб = 5Мб
Ответ: 5 Мб занимает 1 мин звукозаписи высокого качества.
Дано:
D = 44000Гц
i =16 бит = 2 байта
I = 700Мб = 734003200 байт
Найти:
t - ?
Решение:
I = D * i * t
t = I / D * i
t = 734003200 байт / 2 байта * 44000 Гц = 8340,94 сек = 139 мин
Ответ: 139 мин максимальная продолжительность звукозаписи на диске 700 Мб
Дано:
Т = 1,5 ч = 90 мин = 5400 с
K = 1Мб
V = 25 кадр/с
Найти:
I - ?
Решение:
I = T * K * V
I = 5400 * 1 Мб * 25 к/с = 135000 Мб = 131,83 Гб
Ответ: 131,83 Гб содержит 1,5 ч. фильм
Исходя из конца выражения
M,N точно должны быть M=0,N=1
Зная это мы должны подобрать другие переменные
Учитывая, что M = 0, K тоже должно быть равно нулю, иначе выражение K -> M будет равно 0
Ну и последнее ~L V M должно тоже быть единицей L=0
L=0,M=0,N=1,K=0
Ответ:14 часов пройдёт до звонка будильника.
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
<span>наверно переносчик данных но я точно не знаю</span>