информатика

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

Оставить ответ
1

Ответ №1

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

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

Знаете ответ?