Определите назначение программы:
var i,k,m,n: integer; An: real;
begin
write('Введите число'); readln(n);
k:=1; m:=1;
for i:=1 to n do
begin k:=k*2; m:=m*i end;
An:=m*n/k;
writeln('An=', An);
end.
Окно вывода:
1
An=0.5
2
An=1
3
An=2.25
4
An=6
5
An=18.5
и т.д.
Ответы
Ответ дал:
0
Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой: An = (n*n!)/2^(n), где 2^(n) - это 2 в степени n.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад