С клавиатуры вводится положительное целое число. Определить количество цифр этого числа.

Question

Информатика

Ариадна

15 сентября, 17:17

С клавиатуры вводится положительное целое число. Определить количество цифр этого числа.

+5

Ответы (1)

Знаете ответ на вопрос?

Иола · Answer 1

Program n_1;

var n, count:integer;

Begin

Write ('введите натуральное полож. число n - ') ;

read (n) ;

count:=0;

While n>0 do

Begin

n:=n div 10;

count:=count+1;

end;

write (count) ;

End.

Попробуй эту программу