Покупатель должен заплатить в кассу 5 руб. У него имеютсякупюры по 1, 5, 10, 50, 100, 500, 1000 и 10000 руб. Сколькокупюр разного достоинства отдаст покупатель, если он начинаетплатить с самых крупных купюр? У него имеются
купюры по 1, 5, 10, 50, 100, 500, 1000 и 10000 руб. Сколько
купюр разного достоинства отдаст покупатель, если он начинает
платить с самых крупных купюр?
по логике 1 купюра в 5 руб, на тебе похожую прогу
program sdacha; {сдача с 50 руб}
uses crt;
type M=array [1..4] of integer;
const bn: M=(10, 5, 2, 1);
var
oc: array [1..4] of integer;
p, o, c: integer;
begin
clrscr;
{bn[1]:=10;
bn[2]:=5;
bn[3]:=2;
bn[4]:=1; }
write('сумма покупки (< 50)? --> ');
readln(p);
o := 50 - p;
writeln('сдача: ', o, ' руб. ');
for c := 1 to 4 do begin
oc[c] := o div bn[c];
o := o mod bn[c];
end;
for c := 1 to 4 do if oc[c] > 0 then
writeln(bn[c], ' руб. : ', oc[c], ' шт. ');
writeln('konec zadachi');
readln;
end.
⇢