Написать программу на языке Pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.
Написать программу на языке Pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program NaturalLogarithm;
var
a, b, c: real;
maxNumber, result: real;
begin
writeln('Enter three numbers:');
readln(a, b, c);
if (a > b) and (a > c) then
maxNumber := a
else if (b > a) and (b > c) then
maxNumber := b
else
maxNumber := c;
result := ln(maxNumber);
writeln('Natural logarithm of the maximum number is: ', result:0:2);
end.