Информатика, опубликовано 2018-08-22 19:54:26 by Гость

Написать программу "Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30"

Ответ оставил Гость

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

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.