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