Advertisement
Guest User

Lampu Hias

a guest
Oct 24th, 2014
132
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. var hour,minute,step,sekon,kpk,m,n,k,hasil,awal : int64;
  2.  
  3. function fpb(a,b : int64):int64;
  4. begin
  5. if b=0 then
  6. begin
  7. fpb:=a;
  8. exit;
  9. end else
  10. begin
  11. fpb := fpb(b,a mod b);
  12. end;
  13. end;
  14.  
  15. begin
  16. readln(m,n,k);
  17.  
  18. awal := fpb(m,n);
  19. kpk := (m*n) div awal;
  20.  
  21. step := fpb(kpk,k);
  22. hasil:= (kpk * k) div step;
  23.  
  24. if hasil > 3600 then
  25. begin
  26. hour := hasil div 3600;
  27. hasil := hasil mod 3600;
  28. end;
  29. if hasil > 60 then
  30. begin
  31. minute := hasil div 60;
  32. hasil := hasil mod 60;
  33. end;
  34. sekon := hasil;
  35. writeln(hour,':',minute,':',sekon);
  36. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement