123 Eng

### Engineering the engineers™

Home
Source Codes
Engineering Colleges

Training  Reports
Seminar Reports
Placement Papers

Forums

Computer Science / IT
Electronics
Electrical
Mechanical
Chemical
Civil

CAT / MBA

GMAT / Foreign MBA
Latest Jobs

Displaying  Source Code(s)

 -------------------------------------------------------------------------------- To Find The Coinage Of The Amount Entered. -------------------------------------------------------------------------------- { Description: To Find The Coinage Of The Amount Entered } { Take any integer as input and describe the coinage (e.g no. of 1000 rupees note, no. of 500 note, no. of 100 rupees ..... till 5 rupeesnote.} program COINAGE; var amount, thousand, five_hundred, hundred, fifty, ten, five : integer; begin amount:=0; write(' Enter a amount : '); readln(amount); writeln; writeln; writeln(' DISTRIBUTION OF MONEY i.e ',amount,' rupees '); writeln(' --------------------------------------'); writeln; thousand:=amount div 1000; amount:=amount - (thousand*1000); five_hundred:=amount div 500; amount:=amount - (five_hundred*500); hundred:=amount div 100; amount:=amount - (hundred*100); fifty:=amount div 50; amount:=amount - (fifty*50); ten:=amount div 10; amount:=amount - (ten*10); five:=amount div 5; amount:=amount - (five*5); writeln(' Thousand Rupee Note = ',thousand); writeln; writeln(' Five Hundred Rupee Note = ',five_hundred); writeln; writeln(' Hundred Rupee Note = ',hundred); writeln; writeln(' Fifty Rupee Note = ',fifty); writeln; writeln(' Ten Rupee Note = ',ten); writeln; writeln(' Five Rupee Note = ',five); writeln; writeln(' The remaining amount = ',amount,' rupees '); writeln; writeln(' --------------------------------------'); writeln; writeln(' THANK YOU'); readln; end.

Contribute content or training reports / feedback / Comments
job placement papers