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(; writeln(s); end.

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(; writeln(s); end. напишите программу на языке qbasic

arteommartiashev · Answer

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

Var n, j: integer; a: real; begin readln(n,a); s: =0; for j: =0 to n do s: =s+1/(exp(2nln(; writeln(s); end. напишите программу на языке qbasic

Популярные вопросы