Question

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

Answer 1

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

Answer 2

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