Предмет: Информатика,
автор: бароно
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
Ответы
Автор ответа:
0
INPUT n, a
s = 0
FOR j = 0 TO n
s = 1 / a ^ (2 * n)
NEXT j
PRINT s
s = 0
FOR j = 0 TO n
s = 1 / a ^ (2 * n)
NEXT j
PRINT s
Автор ответа:
0
спасибо
Автор ответа:
0
Для "Спасибо" тут есть специальная кнопочка. Потом модераторы удаляют все комментарии и кнопочка для того, чтобы не создаваось лишних комментариев
Похожие вопросы
Предмет: Другие предметы,
автор: gulchexragulamova
Предмет: Литература,
автор: uulkina063
Предмет: Английский язык,
автор: milana562526
Предмет: Химия,
автор: Светлана5
Предмет: Геометрия,
автор: DashaASB