Question

Помогите решить задание на 4. И как записать в Paskal*e

Answer 1

//На будущее, не Paskal, а Pascal
var z,x:real;
begin;
readln(x);
if (sqr(x)-8*x+12)=0 then exit;
z:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);
writeln(z);
end.