1 2 3 4 5 6 7 8 9 10 11 12 13 Uses CRT; Var s:real; i,n:integer; begin readln(n); s:=0; for i:=1 to n do s:=s+(exp(ln(3)/exp(ln(2)*i))); writeln(s/n); readkey end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
