следующая тема »

[10 Ноябрь 2025, 17:23:06]

Новости, реклама:

[10 Ноябрь 2025, 17:23:06]

Новости, реклама:

[Dimon4ik]

1+X+X(в квадрате)+X(в кубе)…+X(в n - ной степени)



Составить алгоритм вычисления



помогите плиз, кто это понимает - тому 2мин работы) помогите плиз до четверга(

[spammer]

Код:

var
  x : extended;
  n : integer;
  result : extended;
  i : integer;
begin
  readln(x);
  readln(n);

  result := 1;
  for i := 1 to n do
  begin
    result := result + x;
    x := x * x;
  end;

  writeln(result);
end.