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