allekco

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

Oct 24th, 2019
26
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