А. Составьте подпрограмму-функцию, которая по заданному натуральному числу n вычислит...

Question

А. Составьте подпрограмму-функцию, которая по заданному натуральному числу n вычислит сумму его цифр.
б. Составьте алгоритм, подсчитывающий количество n-значных натуральных чисел, у каждого из которых сумма цифр равна заданному натуральному числу k.

Answer 1

A. 
Program enot;
Var a,c,sum: integer;
begin
read(a);
while a>0 do
begin
c:= a mod 10;
sum:=sum+c;
a:=a div 10;
end;
writeln(sum);
end.