Найдите сумму четных чисел от 15 до 100. кратко. комментарии или попроще. паскаль.

Question

Найдите сумму четных чисел от 15 до 100. кратко. комментарии или попроще. паскаль.

Answer 1

pascalabc.net

begin

   var sum : integer;//объявляем

   for var i := 15 to 100 do //пробегаемся по всему диапазону

       if i mod 2 = 0 then //елси число из диапазона четное, добавляем к сумме

           sum += i;

   println(sum);//выводим

end.

---