Задание ** паскль, тема циклы. Вычислите сумму S=7+14+21.....+ (n элементов).

Question

Задание на паскль, тема циклы.
Вычислите сумму S=7+14+21.....+ (n элементов).

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n,i->7*(i+1)).Sum)
end.

---

Answer 2

Program Old_School;
var
S, n, i:integer;
begin
Writeln('Введите n -> ');
Readln(n);S:= 0;
For i:= 1 to n do
  S:= S + 7*i;
Writeln(S);
end.