Question

Составить программу, которая определяет однозначные, двухзначные, трехзначные, четырехзначные или пятизначные
Язык: ABCPascal

Answer 1

var a,b:integer; {a-число, b-количество знаков числа}

begin

readln(a);

while a<>0 do

 begin

   b:=b+1;

   a:=a div 10;

 end;

 writeln(b);

end.