Question

Создайте программу для нахождения суммы ряда:

S=2x^1+3x^2+4x^3+5x^4+...+20x^19

PASCALABC.

Answer 1

var
a,s,i:integer;
begin
  s:=0; a:=1;
      for i:=1 to 19 do begin
       s:=s+inc(i)^a;
       inc(a);
      end;
writeln(s);
end.