Question

Дано натуральное число .Верно ли что количество его цифр нечетное число

Answer 1

Var i,n,k,b: integer;begin  write(' b = ');  readln(b);  write(' n = ');  readln(n);  i:=n;  k:=0;  while i>0 do   begin    i:=i div 10;    k:=k+1;  end;  if n<=b then writeln('число n не превышает ',b)  else writeln('число n больше ',b);  if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное')  else writeln('число цифр ',k,' - нечетное');end.