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

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

program Cashier
va
s, k500, k100, k50, k10: integer
begi
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.