Вычислить (1+2)*(1+2+3)*…*(1+2+…+10) — QBasic(Бейсик)

p = 1
FOR i = 1 TO 10
    s = s + i
    p = p * s
NEXT
PRINT p

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

Leave a Comment