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

Программа на языке Паскаль для нахождения количества цифр в записи положительного целого числа может выглядеть следующим образом:

pascal
program CountDigits;

var
  x, count: Integer;

begin
  Write('Введите положительное целое число: ');
  ReadLn(x);

  count := 0;
  
  // Проверяем, что введено положительное число
  if x <= 0 then
    WriteLn('Ошибка: введено не положительное число.')
  else
  begin
    // Подсчитываем количество цифр
    while x > 0 do
    begin
      x := x div 10;  // Убираем последнюю цифру
      count := count + 1;  // Увеличиваем счетчик
    end;

    WriteLn('Количество цифр: ', count);
  end;
end.

Объяснение работы программы:

1. Сначала программа запрашивает у пользователя ввод числа.

2. Переменная count используется для подсчета количества цифр.

3. В цикле while число делится на 10, и таким образом, удаляется последняя цифра. Каждый раз, когда число уменьшается, счетчик увеличивается.

4. Программа выводит количество цифр в числе.

Программа корректно работает с любыми положительными целыми числами.