Измените порядок фрагментов программы таким образом, чтобы получить решение задачи: Найти сумму чисел от 10 до 100

Название: Изменение порядка фрагментов программы для нахождения суммы чисел от 10 до 100.

Разъяснение:
Чтобы найти сумму чисел от 10 до 100, мы можем использовать цикл while. Однако в представленном фрагменте программы порядок действий не верный. Чтобы найти сумму чисел от 10 до 100, необходимо сначала проинициализировать переменные, а затем использовать цикл while, чтобы последовательно прибавлять числа от 10 до 100 к переменной S.

Например:

var S, x: integer;

Begin

  x:= 10;

  S:= 0;

  while x <= 100 do

  begin

    S := S + x;

    x := x + 1;

  end;

  writeln("Сумма чисел от 10 до 100: ", S);

end.  

Совет:
Чтобы лучше понять принцип работы программы, рекомендуется проследить выполнение каждой итерации цикла в уме. Также стоит учесть, что переменная x должна быть увеличена на 1 после каждой итерации цикла, чтобы проходить по числам от 10 до 100.

Дополнительное упражнение:
Напишите программу на языке Pascal, которая найдет сумму чисел от 1 до 50 (включительно) и выведет ее на экран.