Question

Напишите функцию, которая вычисляет количество цифр числа (PascalABC)

Answer 1

Function kol(n:integer):integer;
var
   kol1:integer;
begin
   kol1:=0;
   repeat
      kol1:=kol1+1;
      n:=n div 10;
   until n=0;
   kol:=kol1;
end;

Answer 2

Function to Calculate the Number of Digits in a Number (PascalABC)

To calculate the number of digits in a given number in PascalABC, you can create a function that iteratively divides the number by 10 until it becomes 0, counting the number of iterations. Here's a sample function to achieve this:

function CountDigits(number: Integer): Integer;
var
  count: Integer;
begin
  count := 0;
  while number <> 0 do
  begin
    number := number div 10;
    count := count + 1;
  end;
  CountDigits := count;
end;

This function takes an integer `number` as input and iteratively divides it by 10 until it becomes 0, counting the number of iterations. The final count represents the number of digits in the original number.

This function can be called with a number as an argument to calculate the number of digits in that number.

Example Usage: ```pascal var num, digitCount: Integer; begin num := 12345; digitCount := CountDigits(num); WriteLn('The number of digits in ', num, ' is ', digitCount); end. ```

This will output: ``` The number of digits in 12345 is 5 ```