Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x.

Предыдущий
вопрос Следующий
вопрос

program CountDigits;

va
x, count: integer;

begi
writeln('Введите число x:')
readln(x);

count := 0;

while x > 0 d
begi
x := x div 10
count := count + 1
end;

writeln('Количество цифр в числе x: ', count);

end.