написать программу на языке Pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.
Answers & Comments
DonPedro80
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.
Answers & Comments
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.