Заводишь переменную, куда будешь забивать сумму, затем в цикле N раз считываешь число, умножаешь его на себя и прибавляешь к сумме (не забудь обнулить переменную для суммы в начале)
Тут же просто, переводим мегабайты в биты:
32 Мбайт = 256 мбит = 262144 кбит = 268435456 бит
Соотношение принимает вид
16х бит = 268435456 бит
Отсюда получаем x = 16777216
Называется моделью
....................................................
До работы цикла переменной day присваиваем 1 (в конце он будет равен номеру дня- day := k, полученному врез. выполнения программы). Переменной m присваиваем значение 1-го дня=2. Затем начинаем сравнивать значения Dat[k] =< m , начиная с <span>k := 2 до 10,
Если условие верно, </span>m: присваиваем значение Dat[k], <span>day := k.
1 шаг Сравниваем </span>Dat[k] =< m (Dat[2]( а это 2)<span>=<2
Да, верно </span>m:=2, <span>day :=2.
2 шаг 3 </span>=< 2 Нет, оставляем m:=2, <span>day :=2
3 шаг 3 </span>=< 2 Нет, m:=2, <span>day :=2
4 шаг 2 </span>=< 2 , да, m:=2, <span>day :=5
5 шаг 2</span> =< 2 , да, m:=2, day :=6<span>
6 шаг 5 </span>=< 2 Нет, m:=2, <span>day :=6
7 шаг </span>5 =< 2 Нет, m:=2, day :=6<span>
8 шаг 6</span> =< 2 Нет, m:=2, day :=6
9 шаг 6 =< 2 Нет, m:=2, day :=6
На экране будет число 6 (<span>write(day))</span>