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

Nikbooc Nikbooc    2   26.05.2019 03:50    1

Ответы
leonleontiev6 leonleontiev6  22.06.2020 12:42
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика