Составьте программу для преобразования расстояния x в милях в расстояние k в километрах,приняв,что 5 миль равны 8 км. исходное расстояние в милях задается с клавиатуры.

Program mtokm; begin var a: double; writeln("введите расстояние в милях: "); readln(a); writeln("расстояние в милях: ", a); a : = a / 5 * 8; write("расстояние в км: ", a); end.

Прежде всего, основание 17 - в нем 17₁₀ запишется как 10 - подходит, четное. далее, основания меньше 17, в которых запись числа 17₁₀ состоит из двух цифр. 17 = 16+1 = 15+2 = 14+3 = 13+4 = 12+5 = 11+6 = 10+7 = 9+8 = 8+9 = вариант 8+9 уже не подходит. легко догадаться, что 16+1 - это 1×16+11 = 11₁₆ в развернутом виде, 15+2 = 12₁₅, 14+3 = 13₁₄ 9+8 = 18₉ и это последнее двухзначное число. 8+9 - это совсем не "9₈", поскольку цифра в записи числа не может быть даже равна основанию системы счисления, а не то, чтобы превышать его. итак, пока насчитали 5 оснований систем счисления. остановились на основании 8. 17 = 2×8+1 = 21₈. последняя цифра нечетная. 17 = 2×7+3 = 23₇. последняя цифра также нечетная. 17 = 2×6+5 = 25₆. и здесь последняя цифра нечетна. 17 = 3×5+2 = 32₅. подходит 17 = 4×4+1, но по основанию 4 не существует четверки в записи. все, двухзначные числа закончились. 17 = 1×3² + 2×3¹ + 2×3⁰ = 122₃. последняя цифра четная. 17 = 10001₂ - последняя цифра нечетная. всего получилось 5+2 = 7 систем счисления.