Niigpap
7 год назад
Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе.
Формат входных данных
На вход ваша программа получает одно натуральное число n (1≤n≤216−11≤n≤216−1).
Формат выходных данных
Выведите одно число — количество цифр в числе n.
ОТВЕТЫ
Эмилианович
Jul 16, 2019
Var n:longint;
function kol(n:integer):integer;
begin
if nlt;10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write(n = );
readln(n);
writeln(k = ,kol(n));
end.
Пример:
n = 15324
k = 5
function kol(n:integer):integer;
begin
if nlt;10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write(n = );
readln(n);
writeln(k = ,kol(n));
end.
Пример:
n = 15324
k = 5
Var
n: integer;
function f(n: integer): integer;
begin
if(n lt; 10) then f := 1
else f := f(n div 10) + 1;
end;
begin
readln(n);
write(f(n));
end.
function f(n: integer): integer;
begin
if(n lt; 10) then f := 1
else f := f(n div 10) + 1;
end;
begin
readln(n);
write(f(n));
end.
97
Смежные вопросы:
