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

[15 Июль 2025, 05:56:29]

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

[15 Июль 2025, 05:56:29]

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

[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.