Сумма всех четных - VB

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

Составить программу, которая вычисляет сумму всех четных чисел начиная с данного натурального числа k заканчивая 2k / помогите пожалуйста каждая задача должна быть отдельно Добавлено через 28 секунд Я от програмирования далек , а на лекцию задали=(

Решение задачи: «Сумма всех четных»

textual
                            Листинг программы 
                        
Function sum2k(k As Long) As Long
For k = -Int(-k / 2) * 2 To k + k Step 2
  sum2k = sum2k + k
Next
End Function

Оцени полезность:

9 голосов , оценка 3.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы