zadach399.BAS

{* Задача399 *}

REM basic

' Программа нахождения суммы четных чисел


CLS
INPUT "[a,b]"; a, b
a = a - (a Mod 2  0)
b = b + (b Mod 2  0)
n = (b - a) / 2 + 1
s = (a + b) * 0.5 * n
PRINT "s ="; s
End