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

disel
1
2
3
4
5
p = 1
FOR i = 1 TO n
    p = p * (a(i) + b(n - i + 1))
NEXT
PRINT p

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

Похожие записи/страницы:

Leave a Comment