Сума всех парных чисел - VB
Формулировка задачи:
Даны натуральные числа в интервале [1..200]. Подсчитать суму всех четных чисел
Решение задачи: «Сума всех парных чисел»
textual
Листинг программы
var i:byte; s:integer; begin s:=0; for i:=1 to 200 do if i mod 2 = 0 then s:=s+i; writeln('summa=',s); readln; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д