9)жгавбед (https://obr.org/rus.org)
10)вагб
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191
Пишу на QBasic
Допустим массив уже дан и заполнен
FOR I = 1 TO (Кол-во элементов массива)
IF A(I)=C THEN
X=X+1
END IF NEXT I
PRINT X
/ - разделить
* - умножить
Задача 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