Кто разбирается в информатики , пожалуйста кому не сложно , помогите нужно написать программу!!!!! ( тема цикл) только 1 задачу

1
ppc
Причем тут написание программы? :D

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

Лучший Ответ!
2013-12-08T10:08:54+00:00
var
  i, n: integer;
  sum, a: real;
begin
  writeln('Введите натуральное число "n" и действительное число "a"');
  readln(n, a);
  sum := 1 / a;
  for i := 1 to n do
    sum := sum + 1 / power(a, 2 * i);
  writeln('Результат: ',sum);
end.