Написать программу "Вычислить сумму ряда

1+1.5+2+2.5+3+3.5 + ... + 30"

Question

Информатика

Егорка

6 ноября, 20:48

Написать программу "Вычислить сумму ряда

1+1.5+2+2.5+3+3.5 + ... + 30"

+1

Ответы (1)

Знаете ответ?

Анисия · Answer 1

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.

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

Написать программу "Вычислить сумму ряда

1+1.5+2+2.5+3+3.5 + ... + 30"