13.05.2010, 14:16
|
#3 (permalink)
|
Member
Регистрация: 27.04.2010
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 69
|
если
через репит то:
n:integer;
out:integer;
begin
out:=0;
repeat
n:=round(n/10);
inc(out);
until n<1;
writeln(out)
|
|
|