Написать рекурсивную подпрограмму вычисления суммы цифр входящих в состав числа. отправлю 50 руб на киви сразу

var a,b,i: integer;

begin

a: =0;

write('введите число ');

read(b);

for i: =1 to b do begin

a: =a+i;

end;

write('сумма равна = ',a);

end.  

7 937 082 20 07 киви  

ответ:

2,0,334

объяснение:

excel vba

function newstr(str as string, n as integer) as string

dim i as integer

for i = 1 to n

str = replace(str, "a", "ab")

str = replace(str, "bb", "c")

next

newstr = str

end function

function chrcount(str1 as string, str2 as string) as integer

dim str() as string

str = split(str1, str2)

chrcount = ubound(str, 1)

end function

после вызова из ячейки функции

= chrcount(newstr("abab"; 333); "a")& ","& chrcount(newstr("abab"; 333); "b")& ","& chrcount(newstr("abab"; 333); "c")

получаем результат:

2,0,334

1)способ, которому учат всех в школе. мало кто понимает, в чём его суть, но делают так: в твоём случае: 35/2=17 (1) 17/2=8(1) 8/2=4(0) 4/2=2(0) 2/2=1(0) 1/2=0(1) собираем в обратном порядке: 100011. 2)как всегда делал я: раскладывал число на сумму степеней двойки. это ряд чисел: 1,2,4,8,16,32,64,128,256,512,1024 - такого тебе пока точно хватит. 35=32+2+1 суть такова: давай проверим, правильно ли мы разложили его в двоичную систему: 100011. оно представляется так: 1*(32)+0*(16)+0*(8)+0*(4)+1*(2)+1*(1) получим тот же ответ. (32+2+1) если много тренироваться, это дойдёт до автоматизма.