Напишите функции на языках программирования C/C++, Pascal, а именно int mindigit (int n), function mindigit

c

#include 

using namespace std;



int mindigit(int n) {

    int min_digit = 9;

    while (n > 0) {

        int digit = n % 10;

        if (digit < min_digit) {

            min_digit = digit;

        }

        n /= 10;

    }

    return min_digit;

}



int maxdigit(int n) {

    int max_digit = 0;

    while (n > 0) {

        int digit = n % 10;

        if (digit > max_digit) {

            max_digit = digit;

        }

        n /= 10;

    }

    return max_digit;

}



int main() {

    int n;

    cout << "Введите натуральное число: ";

    cin >> n;

    int min = mindigit(n);

    int max = maxdigit(n);

    cout << "Наименьшая и наибольшая цифры числа " << n << ": " << min << " " << max << endl;

    return 0;

}

pascal

program MindMaxDigits;



function mindigit(n: longint): integer;

var

  min_digit, digit: integer;

begin

  min_digit := 9;

  while n > 0 do

  begin

    digit := n mod 10;

    if digit < min_digit then

      min_digit := digit;

    n := n div 10;

  end;

  mindigit := min_digit;

end;



function maxdigit(n: longint): integer;

var

  max_digit, digit: integer;

begin

  max_digit := 0;

  while n > 0 do

  begin

    digit := n mod 10;

    if digit > max_digit then

      max_digit := digit;

    n := n div 10;

  end;

  maxdigit := max_digit;

end;



var

  n, min, max: longint;

begin

  writeln("Введите натуральное число: ");

  readln(n);

  min := mindigit(n);

  max := maxdigit(n);

  writeln("Наименьшая и наибольшая цифры числа ", n, ": ", min, " ", max);

end.