Question

va rog !!! foarte mult salvațimă : Se da o suma de bani, in care se numara minimum de banconote;
ex: 2250 lei- minimum de bacnote:
2-1000 lei
1-200 lei
1- 50 lei. Rog mult ajutațimă

Answer 1

Răspuns:

var

 a, i, n, s: integer;

begin

 readln(s);

 n := 0;

 a := 5000;

 for i := 1 to 8 do

 begin

   n := n + s div a;

   s := s mod a;

   if i mod 2 = 1 then a := a div 5 else a := a div 2;

 end;

 writeln(n);

end.