Proc30. Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвращает -1. Для каждого из пяти данных целых положительных чисел K_1, K_2, …, K_5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
алг proc30 нач цел N, K1,K2,K3,K4,K5 цел ответ вывод "Введите число 5 чисел K: " ввод K1 ввод K2 ввод K3 ввод K4 ввод K5 вывод "Введите номер N-ой цифры (справа налево): " ввод N вывод "N-ая цифра первого числа: ",DigitN(K1,N), нс вывод "N-ая цифра второго числа: ",DigitN(K2,N), нс вывод "N-ая цифра третьего числа: ",DigitN(K3,N), нс вывод "N-ая цифра четвертого числа: ",DigitN(K4,N), нс вывод "N-ая цифра пятого числа: ",DigitN(K5,N), нс кон алг цел DigitN (арг цел K,N) нач цел циф, номер цифры,K_ K_:=K номер цифры:=0 циф:=-1 нц пока номер цифры<N и N<=5 циф:=mod(K_,10) K_:=div(K_,10) номер цифры:=номер цифры+1 кц знач:=циф кон |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: