Напечатать рекурсивную функцию вычисления количества цифр натурального числа

@azamat92 · Регистрация: 22.12.2009

Author24 — интернет-сервис помощи студентам

Напечатать рекурсивную функцию вычисления количества цифр натурального числа.
B PASCALe.

@yanyk1n · 24.12.2009, 20:12

Pascal

uses crt;
var n:longint;
 
fucntion sum(n:longint):integer;
begin
 if N<=9 then sum:=n else
 sum:=n mod 10 + sum(n div 10);
end;
 
begin
 clrscr;
 write('-> ');
 readln(n);
 writeln(sum(n));
 readln;
end.

@azamat92 · 24.12.2009, 20:17 **[ТС]**

ОГРОМНОЕ СПАСИБО!!!!

@azamat92 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 7
		1
	Напечатать рекурсивную функцию вычисления количества цифр натурального числа 24.12.2009, 20:08. Показов 1448. Ответов 2 Метки нет (Все метки) Напечатать рекурсивную функцию вычисления количества цифр натурального числа. B PASCALe. 0

@azamat92 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 7
	24.12.2009, 20:17 [ТС]	3
	ОГРОМНОЕ СПАСИБО!!!! 0

Опции темы

Напечатать рекурсивную функцию вычисления количества цифр натурального числа

Решение