برنامه

[abdol71]

برنامه تحت پاسکال خرد کردن یک سکه به سکه های 25،50،200،100،10

 

[ms_vb]

من الگوریتمش رو میگم کد نویسیش با خودت

S200=S Div 200
S100= (S Mod 200) Div 100
S50=((S Mod 200) Mod 100) Div 50
S25=(((S Mod 200) Mod 100) Mod 50)Div 25
S10=((((S Mod 200) Mod 100) Mod 50)Mod 25) Div 10