Составьте программу, которая определяет число разрядов заданного натурального числа N...

Question

Составьте программу, которая определяет число разрядов заданного натурального числа N (подсказка: сколько раз должна выполняться N=N div 10, чтобы получилось N=0)

Answer 1

Program n1;
var c: longint;
function ch(n: longint ): longint;
var i: longint;
begin
i := 0;
while n > 0 do
begin
n := n div 10;
i := i + 1
end;
ch:= i
end;
begin
write ('Введите число: ');
readln (c);
if c<0 then c:=abs(c);<br>writeln ('в этом числе ',ch(c),' разрядов ');
end.