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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы