Question

Составьте программу, вычисляющую количество цифр введенного натурального числа Pascal ABC

Answer 1

var n, counter : integer;

begin

counter := 0;

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

readln(n);

while n > 0 do

begin

counter := counter + 1;

n := n div 10;

end;

writeln('Количество цифр в данном числе: ', counter);

end.

Answer 2

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

pascalCopy code
program CountDigits;

var
  num, count: integer;

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

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

Если число не является натуральным (меньше или равно нулю), программа выдаст соответствующее сообщение.