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