# 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

### 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