Question

Написать программу вычисления суммы S=1+2+3+...+n. На паскале. Помогите, пожалуйста.

Answer 1

var

 n,i,s:longint;

begin

 read(n);

 for i:=1 to n do

   s:=s+i;

 writeln(s);

end.