Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе. Формат входных данных На вход ваша программа получает одно натуральное число n (1≤n≤216−11≤n≤216−1). Формат выходных данных Выведите одно число — количе...
Напишите рекурсивную функцию подсчёта количества цифр в натуральном числе.
Формат входных данных
На вход ваша программа получает одно натуральное число n (1≤n≤216−11≤n≤216−1).
Формат выходных данных
Выведите одно число — количество цифр в числе n.
Гость
Ответ(ы) на вопрос:
Гостьvar n:longint;
function kol(n:integer):integer;
begin
if n<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 < 10) then f := 1
else f := f(n div 10) + 1;
end;
begin
readln(n);
write(f(n));
end.
Не нашли ответ?
Похожие вопросы