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

Question

Информатика

Люня

4 марта, 20:17

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

+3

Ответы (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.

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