Составьте программу для определения сдачи после покупки в магазине товара

Категория: Delphi/Pascal
2012-03-23 19:13:49

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

code: #pascal
uses crt;
var change,per,por,gal,cash:longint;
begin;
clrscr;
write('введите стоимость перчаток-');
readln(per);
write('введите стоимость портфеля-');
readln(por);
write('введите стоимость галстука-');
readln(gal);
write('введите кол-во денег, имеущихся в наличии-');
readln(cash);
change:= cash - (per + por + gal);
writeln('Сдача - ',change,'руб.');
end.
Поделиться:

Похожие статьи:

теги: студенты, сумма, стоимость