Помогите составить блок-схему и программу!!!!!!!!!

Question

Помогите составить блок-схему и программу!!!!!!!!!

---

Answer 1

Программу, конечно, написать можно, но в условии явная ошибка (при x>=3 нужно вычислять корень из отрицательного числа)
var x,a:real;
begin
write('x='); readln(x);
if x<=-5<br>  then a:=15*x*x-13
  else if x<3 then a:=abs(x-3) else a:=sqrt(3*x-x*x);<br>writeln('a=',a);
end.

---

Comments

Согласен, получается корень из отрицательного ...

Answer 2

// Pascal
var a,x:real;
begin
  readln(x);
  if x<=-5 then a:=15*sqr(x)-13 <br>  else
     if (x>-5) and(x<3) then a:=abs(x-3)<br>     else
         a:=sqrt(3*x-sqr(x));
writeln(a);
end.