Question

Помогите написать код решения уравнения на паскале

Answer 1

program a1;
var a,b,c:real;
begin
writeln('введите sin x и cos x');
writeln('cos x не равно 3');
readln(a,b);
c:=sqrt((a-0.75)/(b-3));
writeln('Ответ:', c)
end.