Question

Найти сумму всех целых чисел от 1 до N. Нужен АЛГОРИТМ, а НЕ ПРОГРАММА! P.S.: алгоритм на цикл "ДО".

Answer 1

Var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
s+=i;
writeln(s);
end.

Answer 2

(199-99)*100=1000

N=4      
S=1+2+3+4

Answer 3

Алгоритм на цикл "ДО" для нахождения суммы всех целых чисел от 1 до N может выглядеть следующим образом:

1. Инициализировать переменную sum со значением 0.
2. Инициализировать переменную i со значением 1.
3. Начать цикл "ДО", где условием завершения цикла является i <= N.
4. Внутри цикла:
   • Добавить значение i к переменной sum.
   • Увеличить значение i на 1.
5. Завершить цикл "ДО".
6. Вывести значение переменной sum.

Например, для N = 5, алгоритм будет выглядеть следующим образом:

cssCopy code
sum = 0
i = 1
DO UNTIL i > 5
    sum = sum + i
    i = i + 1
LOOP

В результате выполнения данного алгоритма, переменная sum будет содержать сумму всех целых чисел от 1 до N. В данном случае, sum будет равно 15.