Question

Помогите пожалуйста дорешать задачу! Задача: "Посчитать количество цифр в заданном числе".Число можно взять любое,но было бы лучше, если бы оно состояло из 4-5 цифр.Нужно расписать каждый проделанный шаг..Очень надеюсь на вашу помощь

Answer 1

Var a,k: integer;
begin 
 write('a = ');  readln(a);
  k:=0;
  while (a<>0) do
  begin
    a:=a div 10;
    k:=k+1;
  end;
  writeln('количество цифр = ',k);
end.