Question

Помогите составить программу

Y=
a+5, если a<=0,
1/a, если 0
$a^{2}$ в остальных случаях

Answer 1

var a,y:real; 

begin

readln(a);

if (a<=0)then y:=a+5 else

if (a>0) and (a<1)then y:=1/a else y:=sqr(a);

print(y);

end.

beb915b0f7483982c991f3dde7ae6072.pas