Вычислить значение выражения - PascalABC.NET (24834)

Формулировка задачи:

Вычислить значение: Для организации цикла при вычислении суммы использовать оператор цикла while..do.

Решение задачи: «Вычислить значение выражения»

Листинг программы

begin
  var b := 10.3;
  var a : array [1..20] of Integer := (2,4,6,8,0,16,9,5,5,3,11,17,5,9,41,6,1,3,2,8);
  var c := 1;
  var cmax := 22;
  var h := 3;
 
  var S := 0.0;
  while c <= cmax do
    begin
      S += c + b;
      c += h;
    end;
  
  var P := 1;
  for var i := 9 to 20 do
    P *= a[i];
  
  WriteLn('y = ', S, ' + ', P, ' = ', S + P);
end.

Объяснение кода листинга программы

Объявляются три переменные: b, a и c. Значение переменной b устанавливается равным 10.3, а переменная a инициализируется массивом 20 целых чисел, значения которых соответствуют удовлетворению условия постановки задачи. Значение переменной c устанавливается равным 1.
Задаются ещё три переменные: cmax, h и S. Значение переменной cmax равно 22, а значения переменных h и S равны 3 и 0.0 соответственно.
Запускается цикл while, который выполняется до тех пор, пока значение переменной c не станет больше значения переменной cmax. В каждой итерации цикла к переменной S прибавляется сумма значения переменной c и переменной b, а затем значение переменной c увеличивается на значение переменной h.
Задаётся ещё одна переменная P, которая инициализируется единицей.
Запускается цикл for, который выполняется от 9 до 20 (включительно). В каждой итерации цикла значение переменной P умножается на соответствующий элемент массива a.
Выводится сообщение, содержащее значения переменных S, P и их сумму.