Question

Нужна программа на pascal современные компьютеры могут выполнять арифметические действия с достаточно большими целыми числами (максимальное число целого типа 18446744073709551615), а всего 20 лет назад диапазон был ограничен 65536, что меньше в несколько сотен триллионов раз (10 в 14 степени раз). но как быть, если нужно выполнить арифметические операции над числами, разрядность которых больше 20 (т.е. число будет больше, чем 18446744073709551615)? один из это представить число в виде массива, элементы которого цифры данного числа. напишите программу для поиска максимального из трех чисел, состоящих из 20 разрядов. входные данные: три числа, перечисленные через пробел. разрядность каждого не более 25. числа не равны. выходные данные: наибольшее из трех заданных чисел. пример: входные данные: 1234 12345678901234567890 123123123123123 выходные данные: 12345678901234567890 входные данные: 32345678901234567890 12345678901234561111 12345678901234567890 выходные данные: 32345678901234567890

Answer 1

Решение, использующее указанный находится во вложенном файле. Хочу предупредить: программа была написана в среде PascalABC.NET, и в каких-то других средах массивы могут вести себя не совсем правильно, т.е. выдавать ошибку. В этом случае попробуйте изменить строку с объявлением n на "n:array[1..3] of array[0..24] of byte;", убрать строку "setlength(n[i],len[i]);" и все выражения  вида n[a][b] заменить на n[a,b].