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

Answer 1

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

Answer 2

спасибо

Answer 3

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