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