Ответы на вопрос:
Var a,r: integer; begin writeln('выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.'); readln(r); while r< > 0 do begin write('введите значение этой единицы времени: '); readln(a); case r of 1: writeln(a,' сек = ',(a/60): 0: 3,' мин = ',(a/3600): 0: 3,' ч = ',(a/86400): 0: 3,' сут'); 2: writeln(a,' мин = ',(a/60): 0: 3,' ч = ',(a/1440): 0: 3,' сут = ',a*60,' сек'); 3: writeln(a,' ч = ',(a/24): 0: 3,' сут = ',a*3600,' сек = ',a*60,' мин'); 4: writeln(a,' сут = ',a*24,' ч = ',a*1440,' мин = ',a*86400,' сек'); end; writeln; writeln('выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.'); readln(r); end; end.
Популярно: Українська література
-
diant02050203.07.2022 00:58
-
Golden1234502.04.2020 01:24
-
cat070820041605.07.2020 10:30
-
DarthMalgus05.07.2020 11:16
-
olegtab3410.08.2021 00:05
-
ViksAks28.11.2021 02:45
-
tatanavolosnova104.03.2021 16:53
-
smarika8322.11.2020 17:48
-
NargizzaErbolat08.01.2023 08:06
-
lidochka424.12.2020 09:48