рубли копейки

allekco Oct 24th, 2019 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.     k, kop, rub: integer;
  3. begin
  4.     readln(k);
  5.     rub := k div 100;
  6.     kop := k mod 100;
  7.     writeln(rub, 'руб. ', kop, 'коп.');
  8. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand