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

Предыдущий
вопрос Следующий
вопрос

DECLARE FUNCTION exponentiate (x)
DIM n, j
INPUT "Enter n: ", n
INPUT "Enter a: ", a
s = 0

FOR j = 0 TO n
s = s + 1 / exponentiate(2 n LOG(a))
NEXT j

PRINT s

FUNCTION exponentiate (x)
exponentiate = EXP(x)
END FUNCTION