Оооочень нужно написать вот такую программу в QBASIC!!!

Марина, есть несколько замечаний к решению: 1) В операторе INPUT можно использовать подсказку. 2) GOTO - зло! =) 3) Денег может оказаться мало. Поэтому: ================= CLS INPUT "Вам журнал? Введите количество: ", A INPUT "Вам газету? Введите количество: ", B IF A <> 0 OR B <> 0 THEN INPUT "Деньги: ", D C = D - A * 20 - B * 10 IF C < 0 THEN PRINT "Недостаточно денег" ELSE PRINT "Ваша сдача: "; C END IF END IF PRINT "До свидания! " ================= Но как я понял из условия задачи, человек обязательно купит либо одну газету, либо один журнал. Если это действительно так, то решение может быть и таким: ================= CLS PRINT "Вам газету (1) или журнал (2)?" DO select$ = INKEY$ LOOP UNTIL select$ = "1" OR select$ = "2" INPUT "Деньги: ", dengi sdacha = dengi - VAL(select$) * 10 IF sdacha < 0 THEN PRINT "Недостаточно денег. " ELSE PRINT "Ваша сдача: "; sdacha END IF PRINT "До свидания! " =================

А – количество журналов В – количество газет С – сдача D - деньги покупателя 10 PRINT «Вам журнал? Введите количество» 20 INPUT А 10 PRINT «Вам газету? Введите количество» 20 INPUT В 30 IF A=0 AND B=0 THEN 80 40 PRINT «Деньги» 50 INPUT D 60 C=D-A*20-B*10 70 PRINT «Ваша сдача» , С 80 PRINT «До свиданья» 90 ЕND