Сума всех парных чисел - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы