Разработать алгоритм программы применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг, сумму денег, внесенную покупателем; если сдачи не требуется, печатает на экране «спасибо»; если денег внесено больше, то печатается «возьмите сдачу» и указывает сдачу; если денег не достаточно, то печатает об этом сообщение и указывает размер недостающей суммы — Pascal(Паскаль)

Uses
 crt;
Var
stoim,babl:real;
begin
ClrScr;
write('Стоимость: ');
readln(stoim);
write('Денег: ');
readln(babl);
if (stoim-babl)=0 then
writeln('Спасибо')
else
if stoim>babl then
writeln('Не хватает:',stoim-babl)
else
if stoim<babl then
writeln('Возьмите сдачу:',babl-stoim);
readkey
end.

Похожие записи/страницы:

Leave a Comment

69 + = 76