Найти сумму четных чисел от 1 до 100 - VB (63200)

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

Найти сумму четных чисел от 1 до 100

Код к задаче: «Найти сумму четных чисел от 1 до 100 - VB (63200)»

textual
s=0
for i=1 to 100
if i mod 2 = 0 then s=s+i
next i
msgbox s

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


СОХРАНИТЬ ССЫЛКУ