Составить алгоритм нахождения суммы членов последовательности А(k)=k+1, где k=1,2,3...n, ?
Составить алгоритм нахождения суммы членов последовательности А(k)=k+1, где k=1,2,3...n, ??ремя циклами.
Гость
Ответ(ы) на вопрос:
Гость 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<n do begin
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.
Не нашли ответ?
Похожие вопросы