Самый простой это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. Далее собрать нужную строку из получившихся значений, преобразовывая в строки. Учитывая длины получившихся подстрок где надо добавляем 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
var s:string; {функция проверки на палиндром} function palind(s:string):boolean; var i:integer; fl:boolean; begin fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; Result:=fl end;
{основная программа} begin writeln('Введите строку...'); readln(s); if palind(s) then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
Без функции: var s:string; i:integer; palin:boolean; {основная программа} begin writeln('Введите строку...'); readln(s); fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; if palin then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
var
a, b: integer;
function NOD (p1, p2: integer):integer;
begin
while p1<>p2 do
if p1>p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;
function NOK (p1, p2: integer):integer;
begin
NOK:=(p1*p2) div NOD(p1, p2);
end;
begin
readln (a, b);
writeln ('НОК a, b = ', NOK(a, b));
end.