Самый простой это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. Далее собрать нужную строку из получившихся значений, преобразовывая в строки. Учитывая длины получившихся подстрок где надо добавляем 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
Program N70231806_1; var a:array[ 1 .. 10 ] of shortint; i:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 10 do begin a[ i ] := random(21) - 10; write(a[ i ]:4) end; writeln; t := a[ 10 ]; for i := 10 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t; writeln('Результат: '); for i := 1 to 10 do write(a[ i ]:4); readln end.
2) program N70231806_2; var a:array[ 1 .. 12 ] of shortint; i, j:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 12 do begin a[ i ] := random(25) - 10; write(a[ i ]:4) end; writeln; for j := 1 to 4 do begin t := a[ 12 ]; for i := 12 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t end; writeln('Результат: '); for i := 1 to 12 do write(a[ i ]:4); readln end.
var
s1, s2: string;
i, n1, n2: integer;
begin
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово');
readln(s2);
writeln('Объединение слов: ', s1 + s2);
writeln('Длина первого слова: ', length(s1));
writeln('Длина второго слова: ', length(s2));
for i:= 1 to length(s1) do
if s1[i] = 'а' then inc(n1);
for i:= 1 to length(s2) do
if s2[i] = 'a' then inc(n2);
writeln('В первом слове ', n1, ' букв "а" ');
writeln('Во втором слове ', n2, ' букв "а" ');
writeln('Первые 5 букв первого слова: ', copy(s1, 1, 5));
writeln('Первые 5 букв второго слова: ', copy(s2, 1, 5));
delete(s1, length(s1) - 4, 5);
delete(s2, length(s2) - 4, 5);
writeln('Результат удаления последних 5 букв первого слова: ', s1);
writeln('Результат удаления последних 5 букв второго слова: ', s2);
end.