НАДО СОСТАВИТЬ БЛОК-СХЕМУ Функция Аккермана
Требуется вычислить значение А(т, п) - где А это функция Аккермана.
функция Аккермана определяется рекурсивно для неотрицательных целых чисел тип
следующим образом:
А(m, n) = n+1 при n = 0
А(т, п) = А(т - 1, 1), три т > 0, п - ()
А, (т, п) = А(т — 1, А(т, п - 1), при т > 0, п» (0)
.
Входные данные
Даны два целых числа тип (0 т <3.0 п< 10).
Выходные данные
Выведите одно число - А(т, п).
Примеры
Вывод
Ввод
3 ​

Кодdef radix_sort(array):    return sorted(array, key=lambda x: str(x)[::-1])

Описанный сортировки чисел схож с алфавитной сортировкой строк за тем исключением, что разряды в числе располагаются справа налево, а не наоборот.

Для уменьшения количества вычислений сведем задачу к алфавитной сортировке, которую можно произвести встроенными в функцию sorted() алгоритмами. Для этого воспользуемся параметром оной функции key, этот параметр принимает функцию, через которую проходят все сортируемые значения перед сравнением. В этой функции приведем число к строке и запишем в обратном порядке.

Таким образом, алфавитная сортировка даст нам требуемый результат.

В Бейсике есть встроенная функция ATN - арктангенс,
поэтому угол можно в градусах посчитать.

DIM a, b, c, cs, cst, ang, PI
INPUT " a = ", a
INPUT " b = ", b
INPUT " c = ", c
PRINT
PI = 3.141593
cs = (b * b + c * c - a * a) / (2 * b * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол A = ",
PRINT USING "###.##"; ang
cs = (a * a + c * c - b * b) / (2 * a * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол B = ",
PRINT USING "###.##"; ang
cs = (a * a + b * b - c * c) / (2 * a * b)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол C = ",
PRINT USING "###.##"; ang
PRINT "Выход - любая клавиша ... "
DO
LOOP WHILE INKEY$ = ""