Program pr1; var ch:integer; sum:byte; (*рекурсия нахождения суммы цифр числа*) function f_sum(ch:integer):integer; begin if ch=0 then f_sum:=0 else f_sum:=(ch mod 10) +f_sum(ch div 10); end; begin writeln('Введите число'); readln(ch); sum:=f_sum(ch); writeln('Сумма цифр- ',sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
