Найти сумму членов арифметической прогрессии,если ее первый член,разность и число членов...

Question

Найти сумму членов арифметической прогрессии,если ее первый член,разность и число членов прогрессии задаеь пользователь.
(Var a1, d, n, S : REAL; )

Comments

n не может быть real в данном случае

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var d := ReadReal('d =');
  var s := SeqGen(
    ReadInteger('n ='),
    ReadReal('a1 ='),
    a -> a + d)
    .Aggregate((s, x)-> s + x);
  writeln(s);
end.