Задание:
Помогите пожалуйста! (Турбо паскаль, Условный оператор) Задача; Запрашивается стоимость книги и внесенная оплата. Если сумма совпадает со стоимость, то печатается «спасибо». Если оплата меньше стоимости, то печатается «добавьте денег». Если оплата больше стоимости, то печатается «возьмите сдачу» и сумма сдачи. Если сможете то лучше с формулой
Решение:
Program First; uses Crt; var Price, Money: integer; BEGIN write ('Введите стоимость книги '); ReadLn (Price); write ('Введите количество денег '); ReadLn (Money); if Price=Money then write ('Спасибо'); if Money < Price then write ('Добавьте денег'); if Price < Money then write ('Возьмите сдачу: ',Money-Price); END.
Знаете другой ответ?