Var
l: integer;
begin
writeln('Введите длину ребра куба');
readln(l);
writeln('Объём куба равен ', l*l*l);
writeln('площадь поверхности куба равна ',l*l*6);
readln;
end.
В 1-ой 1 раз, во 2-ой 2 раза, в 3-ей 4 раза и т.д.
Получается закономерность: кол-во A = 2^(n-1), где n - номер строки
<span>В 8-ой 2^(8-1)=2^7=128
в десятой </span><span>k = 2^(i-1) = 2^9 = </span><span>512</span>
Премного извиняюсь, неправильно прочел условие задачи