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

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

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


textual

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

sum=0
for i=1 to 100
sum=sum + abs(i mod 2 - 1) 
next i
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы