Ребят, кто разбирается в Turbo Pascal, нужно вычислить сумму ряда с этим заданием!


Ребят, кто разбирается в Turbo Pascal, нужно вычислить сумму ряда с этим заданием!

Сасаев Сасаев    2   04.02.2021 23:17    1

Ответы
prosto51 prosto51  06.03.2021 23:18

var

       n, i: QWord;

       s: Extended;

       

begin

       Read (n);

       s := 0;

       

       for i := 1 to n do

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

       

       Write (s);

end.        

Пояснение:

Сначала вводим количество дробей, которые необходимо сложить.

Ну а затем считаем :)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика