Question

!!!Срочно!!!ДАЮ 100 БАЛЛОВ!!!Напишите программу,которая подсчитает количество символов в произвольном числе!!!ЯЗЫК PASCAL!!!СРОЧНО!!!

Answer 1

program P;

var n : integer;

   ans : integer;

begin

 write('n=');

 readln(n);

 ans := 0;

 while n > 0 do

   begin

       ans := ans + 1;

       n := n div 10;

   end;

 writeln(ans);

end.