petyaGavrikov

Verified answer

Var a,b,c:real;
begin
readln(a,b);
if a=b then writeln('Нельзя вычислить')
else if a<0 then writeln('Нельзя вычислить')
      else begin
           c:=sqrt(a)/(b-a);
           writeln('c = ',c:6:4);
           end;
end.

Пример:
8 3
c = -0.5657