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

Question

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

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.
Попробуй эту программу

Comments

Не хочет работать и выводит эту ошибку

---

Error(s):
Process killed, because it ran longer than 10 seconds. Is your code waiting for keyboard input which is not supplied?

---

Ты вводила цифру ?

---

Она работает