Составьте программу S=1/a+1/a^2+1/a^3+...+1/a^2n-2 Пожалуйста!!!! Очень срочно!!!!
Составьте программу S=1/a+1/a^2+1/a^3+...+1/a^2n-2
Пожалуйста!!!! Очень срочно!!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
n, i : integer;
a, s, k : real;
begin
read (a, n);
s := 0;
k := a;
for i := 1 to 2 * n - 2 do
begin
s := s + (1 / k);
k := k * a;
end;
write (s);
end.
Не нашли ответ?
Похожие вопросы