Даны действительные числа a1,…an ; b1,…bn. Вычислить (a1+bn)(a2+bn-1)…(an+b1) — QBasic(Бейсик)

p = 1
FOR i = 1 TO n
    p = p * (a(i) + b(n - i + 1))
NEXT
PRINT p

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

Leave a Comment