Необходимо определить последнюю сумму ряда, не превышающую 800, и максимальное количество слагаемых ее составляющих 1+4+12+32+80…. — QBasic(Бейсик)

t = 1:
WHILE s < 800
    n = n + 1
    r = t * n
    s = s + r
    t = t * 2
WEND
PRINT "summa"; s - r; "kolichestvo "; n

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