Question

написать программу на языке Pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.

Answer 1

Var
  a,b,c,max:real;
begin
  Write('Задайте три числа: ');
  Readln(a,b,c);
  if a>b then max:=a else max:=b;
  if c>max then max:=c;
  Writeln(ln(c))
end.

Answer 2

Привет! Вот пример программы на языке Pascal, которая находит натуральный логарифм максимального из 3 заданных чисел:

arduinoCopy code
program MaxLn;
var
  a, b, c, max: real;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  
  // Находим максимальное число
  max := a;
  if b > max then max := b;
  if c > max then max := c;
  
  // Выводим результат
  writeln('Максимальное число: ', max);
  writeln('Натуральный логарифм максимального числа: ', ln(max));
end.

Программа сначала запрашивает у пользователя три числа, затем находит максимальное число с помощью оператора if, и, наконец, вычисляет его натуральный логарифм с помощью функции ln.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы, не стесняйтесь задавать!