Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного...

Question

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального N . Алгоритм должен быть типа while

Answer 1

Вроде так, протести, у меня нет возможности.

Var N, i: integer;
begin
readln(N);
i:=1;
while i<=N do<br>begin
i:=i+(i+1);
end;
writeln(i);
end.