Вычислить количество цифр заданного натурального числа n - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Вычислить количество цифр заданного натурального числа n - Turbo Pascal»

textual
function CountN(N:integer):integer;
begin
 if (N div 10)=0 then
 CountN:=1
 else
  begin
   CountN:=1+CountN(n div 10);
  end;
end;
VAr a:integer;
begin
readln(a);
writeln(CountN(a));
 readln;
end.

14   голосов, оценка 4.357 из 5


СОХРАНИТЬ ССЫЛКУ