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

Question

Информатика

Леонитий

27 мая, 23:50

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

+1

Ответы (1)

Знаете ответ на вопрос?

Анадолий · 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.