Дано целое число если оно отрицательное, то возвести его в квадрат; есди положительное или равное нулю, то найти его куб

Var a:integer;
begin
  write('Введите число: ');
  readln(a);
  if a<0 then a:=sqr(a) else a:=sqr(a)*a;
  writeln(a);
end.
  

116

Объяснение:

d = 100

для k от 5 до 12 выполнить

Действия в цикле:

1)  d = d - 6

2) d = d + 8

Вывод d

Цикл выполнится 8 раз

количество повторов в цикле равно конечное значение (12) переменной  счётчика (k) минус начальное  значение (5)  переменной  счётчика (k) плюс 1

количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8

В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.

В сумме эти действия () увеличивают переменную d на 2.

Следовательно за весь цикл переменная d увеличится на 2 * 8.

Т.к. в начале программы d = 100, то

d = 100 + 2 * 8 = 100 + 16 = 116

Задание 1
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт

Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц

Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)

Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)