MrMiner1
Program n_1; var x, y: real; begin readln(x); if (x=6) or (x=2) then writeln ('Нет корней') else begin y:=(x*x-7*x+10)/(x*x-8*x+12); writeln(y:0:10); end; end.
6 votes Thanks 5
lrakitskayap39re1
и еще один вопрос сейчас будет, если сможешь помоги, прошу!!
Answers & Comments
var x, y: real;
begin
readln(x);
if (x=6) or (x=2) then writeln ('Нет корней')
else begin
y:=(x*x-7*x+10)/(x*x-8*x+12);
writeln(y:0:10);
end;
end.