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

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

Question

Информатика

Эммануилка

27 октября, 21:17

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

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

+3

Ответы (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.