Создайте процедуру с параметрами, которая получает целое число, а возвращает подъема его к произвольному степени. в среде паскаль.

ответ: 8831

Код на языке программирования Python

otv = []

for t in range(1, 100001):

   x = t

   a = 0; b = 0

   while x > 0:

       if x % 2 == 0:

           a += 1

       else:

           b += x % 10

       x = x // 10

   if a == 2 and b == 4:

       otv.append(t)

print(max(otv))

Объяснение:

Список otv будет содержать все значения t, подходящие по условию.

Переменная x меняется в процессе работы кода, а нам для ответа нужно изначальное значение x, поэтому изначальное значение сохраняем в переменной t.

В конце цикла for производим проверку, если a == 2 и b == 4, то добавляем к списку otv переменную t (т.к. по условию сначала выводится переменная a, потом b).

В конце кода выводим максимальное значение списка otv.

seconds = int(input())

minutes = 0

hours = 0

days = 0

dayName = str()

zero1 = str()

zero2 = str()

zero3 = str()

while seconds >= 60:

   seconds -= 60

   minutes += 1

while minutes >= 60:

   minutes -= 60

   hours += 1

while hours >= 24:

   hours -= 24

   days +=1

if(seconds / 10 < 1):

   zero3 = str(0)

if(minutes / 10 < 1):

   zero2 = str(0)

if(hours / 10 < 1):

   zero1 = str(0)

if(days % 1 == 1):

   dayName = "день,"

if(days % 10 > 1 and days % 10 < 5):

   dayName = "дня,"

if(days % 10 >= 5 or days == 0):

   dayName = "дней"

print(f"{days} {dayName}, {zero1}{hours}:{zero2}{minutes}:{zero3}{seconds}")