ДАНО: n — натуральное число. ВЫЧИСЛИТЬ : 1*2+2*3*4+…+n*(n+1)*…*(2*n) — QBasic(Бейсик)

INPUT "vvedite N ", n
FOR i = 1 TO n
    p = 1
    FOR j = i TO i * 2
        p = p * j
    NEXT
    s = s + p
NEXT
PRINT s

Тестирование выполнено в программе QB64 ( Скачать )

ДАНО: n — натуральное число. ВЫЧИСЛИТЬ : 12+234+…+n(n+1)…(2*n) — QBasic(Бейсик)