2. Составьте программу для следующей задачи: На вашей банковской карте Х рублей. Вы совершаете покупку - id1149303020210702 от diant020502 02.07.2021 17:47

Question

Информатика: 2. Составьте программу для следующей задачи: На вашей банковской карте Х рублей. Вы совершаете покупку на сумму В руб. Хватит ли имеющейся суммы расплатится за покупку? Если суммы достаточно, то вычислите остаток денег на карте после совершения покупки.

diant020502 · Accepted Answer

DATA 101,98,100,108,97,106,99,100,112,96,107,98 DIM a(1 TO 12) AS INTEGER DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER CLS ib = 0: ic = 0 FOR i = 1 TO 12         READ a(i)         SELECT CASE a(i)         CASE 100                 ib = ib + 1                 b(ib) = i         CASE IS 100                 ic = ic + 1                 c(ic) = i         END SELECT NEXT i PRINT План (100%) в месяцах: ; FOR i = 1 TO ib         PRINT b(i); NEXT i PRINT PRINT...

MOGZ ответил