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 можно посмотреть здесь.
Комментарии: