Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих задан
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального N . Алгоритм должен быть типа while
Гость
Ответ(ы) на вопрос:
Гость Вроде так, протести, у меня нет возможности.
Var N, i: integer;
begin
readln(N);
i:=1;
while i<=N do
begin
i:=i+(i+1);
end;
writeln(i);
end.
Не нашли ответ?
Похожие вопросы