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