Например:
М=29
R=46
K=47
Ответ: 3
Но вот программа у меня загружает процессор на 100% если я вписываю:
М=1
R=99
K=0
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 ( Скачать )
Похожие записи/страницы:
- Дано натуральное N — некоторая сумма в копейках. Выразить сумму в рублях и копейках- Basic(Бейсик)
- Дано натуральное N — некоторая сумма в копейках. Выразить сумму в рублях и копейках - QBasic(Бейсик)
- Сколько можно купить быков, коров и телят, платя за быка 10 рублей, за корову-5 рублей, а за телёнка 0.5 рублей,…
- Создать массив, который получался бы из элементов двух других массивов, которые заданы. То есть, даны два…
- Определить, если в числе цифры 3, 4 и 5- QBasic(Бейсик)
- Сколько можно купить быков, коров и телят, платя за быка 10 рублей,за корову-5 рублей. а за телёнка 0.5 рублей,…