Вопрос пользователя:
Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы.
Илюха отвечает:
qbasic
? "Введите стоимость книг и сумму денег соответсвенно через запятую"
INPUT A,B
IF A=B THEN 1 ELSE 2
1 ? "Спасибо" : GOTO 10
2 IF A>B THEN 3 ELSE 4
3 A-B=C
? "Не хватает денег,доплатите";C : GOTO 10
4 B-A=R
? "Ваша здача";R
10 END