/ - разделить
* - умножить
Задача 1
Пусть жесткий диск будет 500Гб
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 500Гб = 16 * 1024 * 1024 * 1024 байт = 17 179 869 184 байт
Кол-во страниц S = M / T = 17 179 869 184 байт / 2400 байт = 7 158 278.82666667
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 7 158 278
Высота стопки h = S / 100 * 1см = 71 582.78 см = 715.8278 м ~ 0.7 км
Задача 2
Объем DVD M = 4.7*1024*1024 Кб = 4 928 307.2 Кбайт
Всего фото на диске N = M / 500Кбайт = 4 928 307.2 Кбайт / 500Кбайт = 9 856.6144 ~ 9 856 (округлили до целых)
Время просмотра t = N * 5c = 49 280 c = 13.6(8) часов
Задача 3
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 16 Кбайт = 16 * 1024 байт = 16384 байт
Кол-во страниц S = M / T = 16384 байт / 2400 байт = 6.8266666666666
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 6
Var a,n,i:byte;
mn:set of byte;
begin
readln(n);
mn:=[];
writeln('Числа последовательности:');
for i:=1 to n do
begin
a:=random(256);
write(a,' ');
mn:=mn+[a];
end;
writeln;
writeln('Числа, которые не входят в последовательность:');
for i:=0 to 255 do
if not (i in mn) then write(i,' ');
writeln;
end.
Пример (для диапазона от 0 до 25):
<span>Числа последовательности:
6 23 17 12 17 4 22 25 3 8
Числа, которые не входят в последовательность:
0 1 2 5 7 9 10 11 13 14 15 16 18 19 20 21 24</span>
1 Вправо
2 Вправо
3 Вниз
4 Влево
5 Вправо