Задание:
Срочно на завтра! Составить программу вычисления значения функцииy=(√3+√√3+√√√3… √√√√3) /n
Решение:
12345678910111213Uses CRT; Var s: real; i,n: integer; beginreadln (n); s: =0; for i: =1 to n do s: =s+(exp (ln (3) /exp (ln (2)*i); writeln (s/n); readkeyend.
Знаете другой ответ?