Ребят решите пример под номером 3)))на языке паскаль!) спасибо)!
uses Crt;
var x, F: real;
begin
ClrScr;
Write ( X = ); ReadLn (x);
if x<=2 then F:=-sqr(x)+4*x+5
else F:= 1/(sqr(x)+4*x+5);
WriteLn ( F(,x:6:2,) =, F:6:3);
WriteLn;
ReadLn;
end.
Оцени ответ
