Дано натуральное число n .Cоставить программу (или блог-схему алгоритма) вычесление...

Question

Дано натуральное число n .Cоставить программу (или блог-схему алгоритма) вычесление S=1+2+3...+n

Answer 1

Program zz;
var n,i,c,a:integer;
begin 
readln(n); 
c:=0; 
while cfor i:=1 to n do 
begin a:=c+a; 
c:=c+1; 
end; 
a:=a+i; 
writeln(a);
end.