Var n, j: integer; a: real; begin readln(n,a); s:=0; for j:=0 to n do ...

Question

Var n, j: integer;
a: real;
begin
readln(n,a);
s:=0;
for j:=0 to n do
s:=s+1/(exp(2*n*ln(a)));
writeln(s);
end.

Напишите программу на языке QBasic

Comments

Т.е. переписать это же в QBasic?

---

да

---

1/а + 1/а^2 + 1/а^4 + .+1/a^2^n  вот сам пример был

Answer 1

INPUT n, a
s = 0
FOR j = 0 TO n
   s = 1 / a ^ (2 * n)
NEXT j
PRINT s

Comments

спасибо

---

Для "Спасибо" тут есть специальная кнопочка. Потом модераторы удаляют все комментарии и кнопочка для того, чтобы не создаваось лишних комментариев

---

Только у Вас не a^2^n, у Вас a^(2*n). А если именно в степенях надо, то пишут a^(2^n)