Question

Написать программу в паскале для определения сдачи после покупки в магазине товара: перчаток стоимостью а руб., портфеля стоимостью b руб., галстука стоимостью с руб. Исходная сумма, выделенная на покупку d руб. В случае нехватки денег соответствующее сообщение.

Answer 1

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.

Answer 2

Все достаточно точно. Укажите, что именно по Вашем "не точно"?

Answer 3

А Вы присмотритесь - все это есть. А поменять выводимый текст - много ума не надо.