составить программу ** проверку является ли число однозначным двухзначным трехзначнам или...

Question

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

Answer 1

var i,k:integer;

begin

readln(n);

while i>0 do begin

k:=k+1;

i:=i div 10;

end;

writeln(k,'-znachnoe');

end.