Question

Запишите на языке Паскаль программу, реализующую алго- ритм работы кассира, выдающего покупателю сдачу (s) най- меньшим возможным количеством банкнот по 100 1009 (k1000), 500 (k500), 100 (100) и 50 (k50) рублей



.

Answer 1

var k1000, k500, k100, k50, s: integer;

begin

 write('Введите s=5');

 readln(s);

 k1000:= s div 1000;

 k500:= (s mod 1000 div 500);

 k100:= (s mod 500 div 100);

 k50:= (s mod 100 div 50);

 writeln('Следует выдать:');

 writeln('банкнот по 1000 руб. - ', k1000, ' шт.');

 writeln('банкнот по 500 руб. - ', k500, ' шт.');

 writeln('банкнот по 100 руб. - ', k100, ' шт.');

 writeln('банкнот по 50 руб. - ', k50, ' шт.');

end.