Question

Составьте программу в среде Pascal. Найти сумму 2^2 + 2^3 + 2^4 + ... + 2^10

Answer 1

program summa;

var

 res, a, i, j: integer;

begin

 a := 2;

 for i := 2 to 10 do

 begin

   for j := 2 to i do

   begin

     a := 2 * a

   end;

   res := a + res;

   a := 2;

 end;

 writeln(res);

end.