Найти сумму 1 + 1\2 + 1\2^3 + … 1\2^n- QBasic(Бейсик)

disel
1
2
3
4
5
Sum = 1
FOR i = 1 TO n STEP 2
    Sum = Sum + 1 / 2 ^ i
NEXT
CLS: PRINT Sum

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

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

Leave a Comment