Самый простой это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. Далее собрать нужную строку из получившихся значений, преобразовывая в строки. Учитывая длины получившихся подстрок где надо добавляем 0 слева от начала подстроки.
n = int(input('Число секунд с начала суток: ')) h = n // 3600 n = n % 3600 m = n // 60 s = n % 60 sh = str(h) sm = str(m) if len(sm)<2: sm = "0"+sm ss = str(s) if len(ss)<2: ss = "0"+ss print(sh,':',sm,':',ss)
Тест №1 Число секунд с начала суток: 7200 2 : 00 : 00
Тест №2 Число секунд с начала суток: 75201 20 : 53 : 21
1. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые четные и двухначные'); for i:=1 to n do if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4); end. 2. var n,i:integer; mass:array[1..10000] of integer; begin writeln('Введите кол-во чисел'); read(n); for i:=1 to n do begin write('mass[',i,']='); read(mass[i]); end; writeln('Элементы массива которые кратны 4 и трехзначные'); for i:=1 to n do if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4); end. 3. var i,a,m:integer; begin m:=3; for i:=1 to 10 do writeln(i,' * ',m,' = ',i*m); end.
привет, программа на фото