Запишите на языке Паскаль программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k500), 100(k100), 50(k50) и 10(k10) рублей. Пример: Сдача 850р. Следует сдать: банкнот по 500 р. - 1шт. Банкнот по 100 р. - 3 шт. банкнот по 50р. - 1шт банкнот по 10р. - 0шт.

Предыдущий
вопрос Следующий
вопрос

program Cashier;
var
s, k500, k100, k50, k10: integer;
begin
write('Введите сумму сдачи: ');
readln(s);

k500 := s div 500;
s := s mod 500;

k100 := s div 100;
s := s mod 100;

k50 := s div 50;
s := s mod 50;

k10 := s div 10;

writeln('Банкнот по 500 р. - ', k500, ' шт.');
writeln('Банкнот по 100 р. - ', k100, ' шт.');
writeln('Банкнот по 50 р. - ', k50, ' шт.');
writeln('Банкнот по 10 р. - ', k10, ' шт.');
end.