|
program scomposizione; const dim=9; b:array[1..dim]of integer=(500,200,100,50,20,10,5,2,1); type vet=array[1..dim]of integer; var n,i:integer; a:vet; function calcola(var n:integer; b:integer):integer; var i:integer; begin i:=0; while n>=b do begin if n>=b then i:=i+1; n:=n-b; end; calcola:=i; end; begin{main} writeln('Inserire importo da scomporre'); repeat readln(n); until (n>0); for i:=1 to dim do a[i]:=0; for i:=1 to dim do begin a[i]:=calcola(n,b[i]); if(a[i]<>0) and (b[i]>=5) then writeln(a[i],' Banconote da ',b[i],' Euro') else if(a[i]<>0) and (b[i]<5) then writeln(a[i],' Monete da ',b[i],' Euro') end; readln; end.
|
|
