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