Proc29. Описать функцию DigitCount(K) целого типа, находящую количество цифр целого положительного числа K. Используя эту функцию, найти количество цифр для каждого из пяти данных целых положительных чисел.
Решение от Дмитрия:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
алг Proc29 (арг цел A,B,C,D,E, рез цел NA,NB,NC,ND,NE) нач NA:=DigitCount(A) NB:=DigitCount(B) NC:=DigitCount(C) ND:=DigitCount(D) NE:=DigitCount(E) кон алг цел DigitCount (арг цел K) нач цел K_,N K_:=K N:=0 нц пока K_>0 N:=N+1 K_:=div(K_,10) кц знач:=N кон |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: