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

mery77 mery77    3   15.06.2019 16:10    0

Ответы
adelyavalieva1 adelyavalieva1  12.07.2020 18:54
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика