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

спасибо

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

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