Ответы и объяснения

  • KGM
  • умный
2012-11-13T22:26:26+04:00

var s, a, x: real;
  n, i: integer;


begin
  write ('Введите a: ');
  readln(a);
  repeat
    write ('Введите n: ');
    readln (n);
  until n >= 0;  //n не может быть меньше 0
  a := a * a;
  for i := 0 to n do
  begin
    x := power (a, i);  //возводим а в i степень
    s := s + x;  //и прибавляем к сумме
  end;
  s := 1 / s;
  writeln (s);
end.