Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

F(x) =x²-3x+9 если x≤3
= (1)/(x²+6) если x>3
Решите функцию в программе pascal и составьте блок схему

Ответ оставил Гость

Program s123;
Var x,y:real;
Begin 
Writeln(F(x) =x²-3x+9 если x≤3, F(x)=(1)/(x²+6) если x>3); 
Writeln(Введите значение переменной x); 
Readln(x); 
If (x<3) or (x=3) Then y:=sqr(x)-3*x+9 Else y:=1/(sqr(x)+6); 
Writeln(F(x)=,y);
End.