Question

Решите задачу по информатике. Дано натуральное число, определить количество цифр в этом числе. На языке Pascal

Answer 1

var
  i: integer;
  
begin
  readln(i);
  writeln(length(inttostr(i)));
end.

Answer 2

Для решения этой задачи на языке Pascal, вы можете использовать следующий код:

pascalCopy code
program CountDigits;

var
  num, count: integer;

begin
  // Вводим натуральное число
  write('Введите натуральное число: ');
  readln(num);

  // Инициализируем счетчик нулем
  count := 0;

  // Пока число не станет равным нулю
  while num <> 0 do
  begin
    // Увеличиваем счетчик на 1
    count := count + 1;
    // Делим число на 10, чтобы убрать одну цифру
    num := num div 10;
  end;

  // Выводим количество цифр
  writeln('Количество цифр в числе: ', count);
end.

Этот код сначала запрашивает натуральное число у пользователя, затем использует цикл while для пошагового деления числа на 10 и увеличения счетчика цифр, пока число не станет равным нулю. После завершения цикла выводится количество цифр в числе.