Вычислить сумму ряда для n введенного с клавиатуры S=1+1/2x+1/3x+1/nx

18 Мар 2020 в 19:41
159 +1
1
Ответы
1

var n,i: integer; x,s: real;

begin

readln(x,n);

s:=1;

for i:=2 to n do

s:=s+1/(i*x);

writeln(s);

end.

18 Мар 2020 в 21:09
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир