Question

вычислить на pascal : 1+2+4+8+...+2^10

Answer 1

var
  i: integer;

begin
  for k: byte := 0 to 10 do
    i += round(power(2, k));
  writeln(i);
end.

Answer 2

var
i, s: real;

begin
i := 1;
s := 1;
for k: byte := 2 to 10 do
begin
i += k;
s *= i;
end;
writeln(s);
end.

Answer 3

спасибо, выручил сильно

Answer 4

курсовик завтра сдавать, я только щас сейчас начал делать, вообще мозги плавит

Answer 5

Мне не понять, я девятый ещё не закончил)