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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Она работает