Составить алгоритм нахождения суммы членов последовательности А(k)=k+1, где k=1,2,3...n,...

Question

Составить алгоритм нахождения суммы членов последовательности А(k)=k+1, где k=1,2,3...n, тремя циклами.

Answer 1

Var s,i,n:integer;

begin
  readln(n);

//цикл for
  s:=0;
  i:=0;
  for i:=1 to n do s:=s+i+1;
  writeln(s);

//цикл while
  s:=0;
  i:=0;
  while i     i:=i+1;
     s:=s+i+1;
  end;
writeln(s);

//цикл repeat
  s:=0;
  i:=0;
  repeat
     i:=i+1;
     s:=s+i+1;
  until i=n;
  writeln(s);

end.

Comments

цел s, i, n алг нач ввод n | цикл для s:=0 нц для i от 1 до n s:=s+i кц вывод s | цикл c предусловием s:=0 i:=0 нц пока i < n i:=i+1 s:=s+i кц вывод s | цикл с потусловием s:=0 i:=0 нц i:=i+1 s:=s+i кц_при i = n вывод s кон

---

Линейный алгоритм с циклами? Это вы о чем?