Proc7. Описать процедуру InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.
Решение от Дмитрия:
|
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 |
алг Proc6 (арг рез цел A,B,C,D,E) нач InvertDigits(A) InvertDigits(B) InvertDigits(C) InvertDigits(D) InvertDigits(E) кон алг InvertDigits (арг рез цел K) нач цел K_, n,s K_:=K n:=0 s:=0 нц пока K_>=10 n:=n+1 K_:=div(K_,10) кц нц пока K>0 s:=s+mod(K,10)*(10**n) n:=n-1 K:=div(K,10) кц K:=s кон |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: