Найти сумму четных чисел от 1 до 100 - VB (63196)
Формулировка задачи:
40. Найти сумму четных чисел от 1 до 100
Решение задачи: «Найти сумму четных чисел от 1 до 100»
textual
Листинг программы
sum=0 for i=1 to 100 sum=sum + abs(i mod 2 - 1) next i