Question

Написать программу.Для данного х вычислить значение функции: 4x F= 1/(x-6)

Answer 1

Var x,f:real;
begin
writeln('x');
readln(x);
f:=1/(x-6);
x:=4*x;
writeln(f:5:2);writeln(x:5:2);end.