Написать программу в паскале для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью b руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег соответствующее сообщение.
Var a,b,c,d : Integer; Begin Write('a b c d ? '); Readln(a,b,c,d); If a+b+c>d then Writeln('не хватает денег') else Writeln('Сдача (руб.): ',d-(a+b+c)); end.
не совсем точно но спасибо
Все достаточно точно. Укажите, что именно по Вашем "не точно"?
где команды writeln например writeln('Введите стоимость перчатки') дальше readln (a) и кстати я сам уже всё сделал
А Вы присмотритесь - все это есть. А поменять выводимый текст - много ума не надо.