Question

ТЕМА: Линейный алгоритм. Ввод-вывод данных.
Вычислите значение выражений по формулам, организуйте ввод и вывод данных.

в Pascal ABC

Answer 1

Var x:integer; y:real;
Begin
 write('x=');
 readln(x);
 y:=((x*x)-(7*x)+10)/((x*x)-(8*x)+12);
 writeln('y=',y);
End.