1 2 3 4 5 6 7 8 9 10 11 12 | CLS INPUT "vvedite procentnuju stavku"; s INPUT "vvedite r"; r a = 1000 IF r < a THEN r = a q = a * ( 1 + s / 100 ) ^ 16 DO UNTIL a >= r i = i + 1 a = a * ( 1 + s / 100 ) LOOP PRINT "na schetu budet 'r' cherez"; i PRINT "cherez 16 let na schetu budet"; q |
Тестирование выполнено в программе QB64 ( Скачать )