Вычислить значение суммы 8 членов следующего ряда: 19+k / (2+k) + k / (4+k) + k / (6+k) ... K>0 вводятся с клавиатуры

Question

Пуся

23 сентября, 15:15

+4

Ответы (1)

Знаете ответ на вопрос?

Артемия · Answer 1

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.