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!
Kirponos
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
mark
mark
Other questions in the section - informatics
Kaebvan
In the set whole positive number N (0 & lt; N & lt; 2^10)
2020-10-26 10:00:32
Pahomiy
Need help!!!! PLEASE!!! Mr. Fox learned a new algorithm of enciphering: it is necessary
2020-10-26 10:00:32
Tygra
3. zanimayetinf volume v800 bitkak to learn the image of RGB of 20х10 pixels
2020-10-26 10:00:32
Luammamda
For the set whole positive number N calculate the sum of its dividers. in
2020-10-26 10:00:32
Toambugzh
