zadach153.BAS

{* Задача153 *}

REM basic

' Проверить равенство! 1^3 + 3^3 + 5^3 +...+ (2n - 1)^3 = n^2 (2n^2 - 1)


INPUT "Введите n: ", n
L = 0
For I = 1 To n
A = (2 * I - 1)
L = L + A ^ 3
Next
R = (n ^ 2) * (2 * n ^ 2 - 1)

PRINT "Слева: "; L
PRINT "Справа: "; R

If R = L Then PRINT "Равенство верно" Else PRINT "Равенство ложно"