написать (С++) Написати рекурсивну функцію amount, яка повертає кількість цифр у заданому натуральному числі n. Перевірка: якщо n = 3655, то k = 4; якщо n = 56987, то k = 5.

PROGRAM A24;
const
    max = 20;
    
var
    c:array[1..max]of integer;
    x:integer;
    i, k:byte;

BEGIN
  writeln('Заменить k-й элемент одномерного массива на 0, если этот элемент четный и на 1 если он нечетный');
  writeln(' ');

  writeln('Начальный Массив' );
  randomize;
  for i:=1 to max do begin
    c[i]:=random(-64,64);
    write(c[i], ' ');
  end;

  writeln(' ');
  writeln(' ');
 
  write('Введите k='); readln(k);
  writeln(' ');

  if odd(k) then
      c[k]:=1
  else
      c[k]:=0;

  writeln(' ');    
  writeln('Измененный массив' );  
  for i:=1 to max do
    write(c[i], ' ');
END.