allekco Oct 24th, 2019 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- k, kop, rub: integer;
- rub := k div 100;
- kop := k mod 100;
- writeln(rub, 'руб. ', kop, 'коп.');
RAW Paste Data