Определите назначение программы: 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
и т.д.
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
и т.д.
More Questions From This User See All