У человека есть R рублей и К копеек. Он отдает М копеек и всего его копейки становятся рублями, а рубли — копейками. Когда вот так вот отдавать М копеек — можно денег получить больше, чем у тебя было сначала. Программа считает на который раз человек получит макс прибыль- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
Например:
М=29
R=46
K=47
Ответ: 3
 
Но вот программа у меня загружает процессор на 100% если я вписываю:
М=1
R=99
K=0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
n = 1000
DIM a(n)
INPUT "vvedite r"; r
INPUT "vvedite k"; k
INPUT "vvedite m"; m
r = r * 100
DO
    i = i + 1
    s = r + k - m
    r1 = (s MOD 100)
    k = (s - r1) / 100
    r = r1 * 100
    w = r + k
    IF w > s THEN a(i) = w
LOOP UNTIL i = n
c = 0
FOR i = 1 TO n
    IF a(i) > c THEN c = a(i): z = i
NEXT
PRINT "otvet ="; z
END

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

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

Leave a Comment