Advertisement
respect4

Bebek untuk teman

Oct 26th, 2013
223
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var
  2. i,j,k,l:integer;
  3.  
  4. begin
  5. read(i,j);
  6. k:= i div j;
  7. l:= i mod j;
  8. writeln ('masing-masing',' ',k);
  9. writeln ('bersisa ',l);
  10.  
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement