Помогите составить программу Y= a+5, если alt;=0, 1/a, если 0 в остальных случаях
Помогите составить программу
Y=
a+5, если a<=0,
1/a, если 0
в остальных случаях
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы