Website and domain for sale: mail@discussmain.com

To make the program - the converter which requests type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day and also number - value in this unit of measure of time also transfers this number to all other units of measure of time. Input of numbers comes to an end with pressing of key 0. Protocol of work of the program: Choose type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day, 0 - an exit.1 Enter value of this unit of time: 3600 Answer: 3600 sec. is =60 min. old = 1 hour = 0.042 sutokvyberit type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day, 0 - an exit.4 Enter value of this unit of time: 1 Answer: 1 day = the 24th hour = 1440 min. = 86,400 you sekvyberit type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day, 0 - an exit.0 So long!

364
Var A, R: integer; Begin WriteLn (Choose type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day, 0 - an exit.); ReadLn(R); While R< & gt; 0 do Begin Write (Enter value of this unit of time:); ReadLn(A); Case R of 1: WriteLn (A, sec. =, (A/60): 0: 3, mines =, (A/3600): 0: 3, h =, (A/86400): 0: 3, days); 2: WriteLn (A, mines =, (A/60): 0: 3, h =, (A/1440): 0: 3, days =, A*60, sec.); 3: WriteLn (A, h =, (A/24): 0: 3, days =, A*3600, sec. =, A*60, mines); 4: WriteLn (A, days =, A*24, h =, A*1440, mines =, A*86400, sec.); End; WriteLn; WriteLn (Choose type of unit of measure of time: 1 - second, 2 - minute, 3 - hour, 4 - day, 0 - an exit.); ReadLn(R); End; End.
18
Answer add