|
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. |
|
|
123
Eng