Вычислите на компьютере значения функции, указанной в таблице. Осуществите вывод значений исходных данных и результатов расчетов. Кто знает Паскаль

Voshchula David393

18.08.2020

var i,n,sum:real

begin

sum:=0;

readln(n);

for i:=1 to n do

sum:=sum+(1/(n*(n+1)*(n+2)));

writeln(sum);

end;

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислите на компьютере значения функции, указанной в таблице. Осуществите вывод значений исходных данных и результатов расчетов. Кто знает Паскаль

▲