Смог решить только вторую:
program primer2;
var x,o,c:integer;a,b,sum:real;Beginreadln(x);c := x div 10;o := x mod 10;
a := exp(3*ln(c));b := exp(3*ln(o));
sum := a+b;writeln(sum:8:3);end.
Смог решить только вторую:
program primer2;
var x,o,c:integer;
a,b,sum:real;
Begin
readln(x);
c := x div 10;
o := x mod 10;
a := exp(3*ln(c));
b := exp(3*ln(o));
sum := a+b;
writeln(sum:8:3);
end.