Разбор WHILE5

WHILE5

Вычислить сумму 10-ти четных чисел начиная с 14, используя цикл while (т.е. 14 + 16 + 18 ...  - всего 10 чисел).

В while5 надо написать цикл. Требуется вспомогательная переменная, с помощью которой можно будет подсчитать сумму четных чисел (SUM). Изначально SUM = 0.

Начальное значение для переменной i должно быть равно 14. 

Далее начинается цикл (while (i < ?) do) //подобрать число, чтобы действительно складывалось ровно 10 четных чисел:

  в цикле проверяем, является ли текущее значение i - четным (if (i mod 2 = 0) then)

  если да, то увеличиваем значение переменной SUM - прибавляем к переменной суммы четное число (SUM := SUM + i)

  если нет, то ничего не делаем.

  Переходим к следующему значению i (i := i + 1)

На этом цикл заканчивается.

После цикла нужно вывести значение SUM.

Программа на языке Pascal:

var i, sum:integer;
  begin
  sum := 0; //задаем начальное значение накапливаемой переменной;
  i := 14; //задаем первое четное число 14
  while (i <= 32) do //начинается цикл
  begin
     if (i mod 2 = 0) then // если число четное
        sum := sum + i; //прибавляем его к сумме
    i := i + 1; //переходим к следующему числу
  end;
  writeln('sum = ', sum);
end.




























2 способ:

четные число отличаются друг от друга на 2.

var i, sum:integer;
  begin
  sum := 0; //задаем начальное значение накапливаемой переменной;
  i := 14; //задаем первое четное число 14
  while (i <= 32) do //начинается цикл
  begin
     sum := sum + i; //прибавляем четное число к сумме
    i := i + 2; //переходим к следующему четному числу
  end;
  writeln('sum = ', sum);
end.