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
Оцени ответ
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответы