Вы должны своему другу 5 рублей. Вернуть весь долг сразу вам затруднительно, вам затруднительно, вам друг предлагает выплачивать долг частями в течении 10 недель. В первую неделю-1 копейка, во вторую-2, в третью-4, в четвёртую-8 и т.д. Написать программу, подсчитывающую какую сумму в этом случае вы выплатите своему кредитору через 10 недель, а так же выводящую номера недель и сумму выплат за неделю — QBasic(Бейсик)

PRINT "nedelya       vyplata (kopeek)"
FOR i = 1 TO 10
    v = 2 ^ (i - 1)
    s = s + v
    PRINT i, v
NEXT
PRINT "summa="; s / 100; " rubley"

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