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

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

Question

Информатика

Леоня

4 января, 08:10

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

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

+4

Ответы (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"