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

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

Question

Информатика

Максимианыч

4 июня, 06:18

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Януарий · 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.