Question

Вычислить в Паскаль, умоляю помогите

Answer 1

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.

Answer 2

Конечно, я готов помочь вам с вычислениями в языке программирования Паскаль. Пожалуйста, уточните, какие именно вычисления вы хотите выполнить, и я постараюсь помочь вам с кодом на Паскале.