Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var hour,minute,step,sekon,kpk,m,n,k,hasil,awal : int64;
- function fpb(a,b : int64):int64;
- begin
- if b=0 then
- begin
- fpb:=a;
- exit;
- end else
- begin
- fpb := fpb(b,a mod b);
- end;
- end;
- begin
- readln(m,n,k);
- awal := fpb(m,n);
- kpk := (m*n) div awal;
- step := fpb(kpk,k);
- hasil:= (kpk * k) div step;
- if hasil > 3600 then
- begin
- hour := hasil div 3600;
- hasil := hasil mod 3600;
- end;
- if hasil > 60 then
- begin
- minute := hasil div 60;
- hasil := hasil mod 60;
- end;
- sekon := hasil;
- writeln(hour,':',minute,':',sekon);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement