Рекурсия...завтра сдавать((

01.06.2010, 14:39. **Показов** 879. **Ответов** 1

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

Pascal

uses crt;
function pr(n:integer):integer;
var
q:integer;
begin
q:=0;
while n>0 do
begin
n:=n div 10;
inc(q);
end;
pr:=q;
end;
var
n:longint;
begin
readln(n);
writeln(pr(n));
end.

надо доделать программу так, чтобы была там Рекурсия)
надо, что-то вставить..но я не поняла, что именно(((
заранее спсб))

@DennisRU · 01.06.2010, 15:18

Pascal

function pr(n:integer):integer;
begin
 if n<>0 then pr:=1+pr(n div 10)
 else exit;
end;
var
 n:longint;
begin
 readln(n);
 writeln(pr(n));
 readln
end.

	01.06.2010, 15:18