Question

составить программу S= 1+2+...+N

Answer 1

Ответ:

Объяснение:

var

 i, n, s:integer;

begin

 readln(n);

 s:=0;  

 for i:=1 to n do

   s:=s+i;

 writeln(s);

end.