Question

Помогите пожалуйста) составьте программу вычисления суммы 150 первых членов арифметической прогрессии если а1=-200 d=0,2

Answer 1

1 5 0 П0 2 0 0 /-/ П1 2 ВП 1 /-/ П2

ИП1 2 * ИП2 ИП0 - 1 * + 2 / ИП0 * С/П

Answer 2

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a1, d, n) := (-200, 0.2, 150);

 var s := (2 * a1 + d * (n - 1)) / 2 * n;

 s.Println

end.

-27765