Question

Найти f(x) на паскале

Answer 1

program nh;

uses

crt;

var

x, y: real;

function fot(x: real) : real;

begin

if (x > 1) then

fot := 1 / (x + 6)

else

fot := 0;

end;

begin

writeln('Введите x:');

readln(x);

y := fot(x);

writeln('F(x) = ', y: 7: 2);

readln;

end.