Advertisement
TheFaR

TOKI 3D

Jan 22nd, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.16 KB | None | 0 0
  1. var
  2.     N,M: longint;
  3.     A,B: longint;
  4.    
  5. begin
  6.    
  7.     read(N,M);
  8.    
  9.     A:= N div M;
  10.     writeln('masing-masing ',A);
  11.    
  12.     B:= N mod M;
  13.     writeln('bersisa ',B);
  14.    
  15.    
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement