Proc9. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1-9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D_1 и D_2, выводя результат каждого добавления.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
алг AddLeftDigit_1(арг цел K,D1,D2) нач цел K1 K1 := K AddLeftDigit(D1,K1) вывод K1, нс AddLeftDigit(D2,K1) вывод K1 кон алг AddLeftDigit (арг цел D, арг рез цел K) дано 1<=D<=9 дано K>0 нач цел K_, D_ K_:=K D_:=D нц пока K_<>0 D_:=D_*10 K_:=div(K_,10) кц K:=D_+K кон |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: