Question

Решите и напишите программу на языке паскаль, построит блок схему

Answer 1

Var
  a,b,x:real;

begin
  Read(a,b);
  if a>1 then x:=Sqrt(a*a+b*b)/(2*a)
  else if a=1 then x:=Cos(a)
  else x:=Abs(a);
  Writeln(x)
end.