Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses wincrt;
- var uang : longint;
- begin
- write('Nilai uang : ');readln(uang);
- if uang div 100000 > 0 then begin
- writeln(uang div 100000, ' lembar seratus ribuan');
- uang := uang mod 100000;
- end;
- if uang div 50000 > 0 then begin
- writeln(uang div 50000, ' lembar lima puluh ribuan');
- uang := uang mod 50000;
- end;
- if uang div 20000 > 0 then begin
- writeln(uang div 20000, ' lembar dua puluh ribuan');
- uang := uang mod 20000;
- end;
- if uang div 10000 > 0 then begin
- writeln(uang div 10000, ' lembar sepuluh ribuan');
- uang := uang mod 10000;
- end;
- if uang div 5000 > 0 then begin
- writeln(uang div 5000, ' lembar lima ribuan');
- uang := uang mod 5000;
- end;
- if uang div 1000 > 0 then begin
- writeln(uang div 1000, ' lembar ribuan');
- uang := uang mod 1000;
- end;
- if uang div 500 > 0 then begin
- writeln(uang div 500, ' lembar lima ratusan');
- uang := uang mod 500;
- end;
- if uang div 100 > 0 then begin
- writeln(uang div 100, ' ratusan');
- uang := uang mod 100;
- end;
- if uang div 50 > 0 then begin
- writeln(uang div 50, ' limapuluhan');
- uang := uang mod 50;
- end;
- if uang > 0 then begin
- writeln(uang, ' satuan');
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement