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

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

Задать свой вопрос
Валерий Шванский
n не может быть real в данном случае
1 ответ
//PascalABC.NET 3.1 сборка 1200
begin
  var d := ReadReal('d =');
  var s := SeqGen(
    ReadInteger('n ='),
    ReadReal('a1 ='),
    a -gt; a + d)
    .Aggregate((s, x)-gt; s + x);
  writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт