Составить программу y= a+5, если a =0, 1/a, если 0 в остальных случаях

Question

Информатика: Составить программу y= a+5, если a =0, 1/a, если 0 в остальных случаях

Theknopa444 · Answer

Var a,y:real; beginreadln(a);if (a =0)then y:=a+5 elseif (a 0) and (a 1)then y:=1/a else y:=sqr(a);print(y);end....

Составить программу y= a+5, если a< =0, 1/a, если 0 в остальных случаях