42

Написать программу «Вычислить сумму ряда 1+1,5+2+2,5+3+3,5+… +30"

denmatrix 30 июня 2022

Написать программу «Вычислить сумму ряда 1+1,5+2+2,5+3+3,5+… +30"

категория: информатика

98

Program RowSum; Const min=1; a=0,5; max=30; Var b, c: Real; i: Integer; Beginb: =a; c: =0; For i: =min To max*2 — 1 DoBeginb: =b+a; c: =c+b; End; WriteLn ('Сумма ряда равна ', c: 5:2); ReadLn; End.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...