Question

Să se scrie un program care să determine numărul de cifre ale unui număr natural citit de la tastatură

Answer 1

Răspuns:

var

 n, c: integer;

procedure nr(n: integer; var c: integer);

begin

 while n > 0 do  

 begin

   n := n div 10;

   c += 1;

 end;

end;

begin

 readln(n);

 nr(n, c);

 write(c);

end.