Proc6. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.
Решение Дмитрий:
|
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 |
использовать Файлы алг работа с файлом нач файл файл1 файл1:=открыть на чтение ("Proc6.txt") цел A, C1, S1 нц пока не конец файла (файл1) ввод файл1, A DigitCountSum(A,C1,S1) вывод нс,C1," ",S1 кц закрыть (файл1) кон алг DigitCountSum (арг цел K, рез цел C, S) нач цел K1 K1:=K C:=0 S:=0 нц пока K1>0 C:=C+1 S:=S+mod(K1,10) K1:=div(K1,10) кц кон |
Файл Proc6.txt
|
1 |
4 5 44 245 2234 |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: