Составить программу нахождения суммы четных чисел начиная с 1 до 100. QBasic

Question

Составить программу нахождения суммы четных чисел начиная с 1 до 100. QBasic

Answer 1

CLS
FOR I = 1 TO 100
IF I MOD 2 = 0 THEN
K=K+I
END IF
NEXT I
PRINT K

Comments

спасибо