Ответы на вопрос:
//pascalabc.net var n: longint; s,m,h: integer; ss,mm,hh: string; begin write('целое число секунд: '); read(n); h: =n div 3600; n: =n mod 3600; m: =n div 60; s: =n mod 60; str(s,ss); if length(ss)=1 then ss: ='0'+ss; str(m,mm); if length(mm)=1 then mm: ='0'+mm; str(h,hh); if length(hh)=1 then hh: ='0'+hh; writeln(hh+': '+mm+': '+ss) end. тестовое решение: целое число секунд: 31415 08: 43: 35
Популярно: Информатика
-
dschunchewa201311.05.2023 22:56
-
dshaa1415.03.2022 16:27
-
nicgames21.02.2022 01:56
-
chelsea612.06.2023 04:18
-
olivka825.10.2020 21:45
-
AngelinaMon02.06.2021 12:38
-
Златаник201725.09.2020 23:18
-
Diamond111111104.07.2020 17:38
-
CarlJohnson100016.08.2022 22:30
-
Даше4ка1607.10.2021 10:25