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

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

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

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

textual
sum=0
for i=1 to 100
sum=sum + abs(i mod 2 - 1) 
next i

7   голосов, оценка 3.714 из 5


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