Question

Написать программу в Pascal,пожалуйста

Answer 1

program zzz;

var x,y,z:real;

function log(x,b:real):real;

        begin

             log:=ln(x)/ln(b)

        end;

begin

    write('x?');read(x);

    write('y?');read(y);

    z:=log(x,2)+log(y,3);

    write('z=');writeln(z);

end.