Ответ: a)

program dz;

var  

k,a,b:real;

begin

 read(a,b);

 k:=(sqrt(a)+sqrt(b))/sqrt(sqr(a)+sqr(b));

 write(k);

end.

б)

program dz;

var  

x,z,y:real;

begin

 read(z,y);

 x:=z*y/sqrt((sqr(z)*z)+(sqr(y)*y));

 write(x);

end.

Объяснение: