алг 
нач 
цел N, S 
N := 12345 
сумма цифр(N, S) 
вывод N, "; ", S 
кон 
 
алг сумма цифр (арг цел n, рез цел s)                | (А65) 
дано n>0 
надо  | s = сумма цифр числа n 
нач цел nn 
nn := n | значение аргумента нельзя изменять, 
| поэтому нужна дополнительная промежуточная величина 
s := 0 
нц пока nn>0 
s:=s+mod(nn,10) 
nn:=div(nn,10) 
кц 
кон 
 
 
 
