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

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

автор: кот Бегемот