Вычислить значение суммы 8 членов следующего ряда: 19+k/(2+k)+k/(4+k)+k/(6+k)…. K больше 0 вводятся с клавиатуры
Вычислить значение суммы 8 членов следующего ряда: 19+k/(2+k)+k/(4+k)+k/(6+k)…. K>0 вводятся с клавиатуры
Гость
Ответ(ы) на вопрос:
ГостьPascal:
var
s, k: real;
i: byte;
begin
s := 19;
readln(k);
for i := 1 to 8 do
s := s + k / (i * 2 + k);
writeln(s);
end.
Не нашли ответ?
Похожие вопросы