Question

Циклы с постусловиями.
Разработать схему алгоритма и написать программный код на языке Паскаль. Используя оператор Repeat Until.

Answer 1

var
  i, n, y, x: real;

begin
  readln(n, x);
  repeat
    y := y + power(x, n - i);
    i := i + 1;
  until (n < i);
  writeln(y);
end.