Вычислить сумму всех четных натуральных чисел меньше данного n . задача по информатике

Question

Вычислить сумму всех четных натуральных чисел меньше данного n . задача по информатике

Comments

Не указан ЯП.

---

program summa;

---

var i,n,k:integer;beginreadln(n);for i:=1 to n doif i mod 2 = 0 then inc(k,i);writeln('Sum=',k);end.

Answer 1

СLS
INPUT n
FOR i = 1 TO n
IF INT(i/2) = i/2 THEN s=s+i
NEXT i
PRINT "сумма равна"; s
END