SkkolyarRayona
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.
Answers & Comments
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.