Question

Напишите функцию которая возвращает: наибольшую цифру в десятичном представлении целого числа n>0; 2)Корень уравнения ax+b=0; P.S исправляю хвосты))))

Answer 1

1)
function numb(n:integer):integer;
   var
       n,ch,st,max:integer;
   begin
      st:=1;
      max:=-1;
      ch:=n mod 10;
      n:=n div 10;
      while(n>0)do
         begin
             ch:=ch+(n mod 10)*st;
             n:=n div 10;
             st:=st*2;
          end;
       while(ch>0)do
           begin
                if(ch mod 10>max)then
                     max:=ch mod 10;
                ch:=ch div 10;
           end;
       numb:=max;
end;
2)
function yravn(a,b:integer):integer;
   begin
      yravn:=-b div a;
   end;

Answer 2

Конечно, давайте рассмотрим обе части вашего вопроса.

1. Функция для поиска наибольшей цифры в десятичном представлении числа:

def наибольшая_цифра(n):
    # Преобразуем число в строку для удобства обработки цифр
    str_n = str(n)
    
    # Используем функцию max() для поиска максимальной цифры
    макс_цифра = max(str_n)
    
    return int(макс_цифра)

# Пример использования:
число = 74928
результат = наибольшая_цифра(число)
print(f"Наибольшая цифра в числе {число} - {результат}")

2. Функция для нахождения корня уравнения ax + b = 0:

def корень_уравнения(a, b):
    # Проверяем, что a не равно 0 (чтобы уравнение было линейным)
    if a == 0:
        raise ValueError("Коэффициент 'a' не может быть равен 0 для линейного уравнения.")
    
    # Вычисляем корень уравнения
    корень = -b / a
    
    return корень

# Пример использования:
коэффициент_a = 2
коэффициент_b = -8
результат = корень_уравнения(коэффициент_a, коэффициент_b)
print(f"Корень уравнения {коэффициент_a}x + {коэффициент_b} = 0 равен {результат}")

Обратите внимание, что в функции для корня уравнения проверяется, что коэффициент 'a' не равен 0, чтобы избежать деления на ноль, что привело бы к ошибке.