Question

Вычислить сумму: s = 1 + 2 + 3 + ... + n, если значение n задано, не применяя формулу суммы членов арифметической прогрессии. 3 способа.
можно и один способ, но желательно все 3.
Заранее спасибо!

Answer 1

1.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s=',s);
end.

2.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
while i<n do
  begin i:=i+1; s:=s+i; end;
writeln('s=',s);
end.

3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0; i:=0;
repeat
  i:=i+1; s:=s+i;  
until i=n;
writeln('s=',s);
end.

Пример:
n=5
s=15