Запишите на языке Паскаль программу, реализующую алгоритм работы кассира, выдающ?
Запишите на языке Паскаль программу, реализующую алгоритм работы кассира, выдающ??го покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100(k100), 50(k50) и 10(k10) рублей.
Пример:
Сдача 850р.
Следует сдать:
банкнот по 500 р. - 1шт.
Банкнот по 100 р. - 3 шт.
банкнот по 50р. - 1шт
банкнот по 10р. - 0шт.
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
Тестовое решение:
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
Не нашли ответ?
Похожие вопросы