1) НАДО ВСЕ ПЕРЕМНОЖИТЬ ПОЛУЧИТСЯ 1536 КИЛОБАЙТ
2)ОТВЕТ 4 (СЧИТАЕТСЯ ПО ФОРМУЛЕ n=2^K )
Подробный ответ внутри во вложении
Сначала вычисляем x: 8+2*5 = 18, затем 18 делим на 10 и находим остаток, к нему прибавляем 24: 18/10(остаток 8) + 24 = 32. 32 принимает значение y. Дальше 32 просто делим на 10 и прибавляем 3: 32/10 + 3 = 6, 6 принимает значение x. Дальше 6*6-32+6/6 = 5. c = 5.
Var
a: array[1..10] of real;
i: integer;
b: real;
begin
for i := 1 to 10 do
begin
Write('Введите ', i, '-ый элемент массива ');
Readln(a[i]);
b := b + a[i];
end;
Writeln('Сумма равна ',b);
<span>end.</span>