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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник