Помогите составить программу на языке паскаль для функции. Заранее огромнейшее спасибо!)

1

Ответы и объяснения

2014-04-11T13:38:02+04:00
Var x:integer;
    y:real;
begin
writeln('введите Х');
readln(x);
Y:=(abs(x-100)+20)/(sqr(x)-400);
writeln('y=', y);
end.