S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.
<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>
Сначала 9Кбайт переделываем просто в байты. Поэтому 9*1024=9216. Потом переводим в биты? 9216*8=73728. И делим на 2048. Получается 36 секунд.
I1 = M*N*i = 4500*50*60*8 = 108000000бит/8 = 13500000байт/1024 = 13184кБ/1024 = 12.9МБ
I2 = 6*3 = 18МБ
I = 12.9+18 = 30.9МБ
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('x, y, z =');
var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));
Println(e)
end.