Помогите составить программуY=a+5, если aamp;lt;=0,1/a, если 0[tex] a^2 [/tex] в других

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

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

Задать свой вопрос
Aleksej Novomirskij
1/a если 0
1 ответ
Var a,y:real; 

begin

readln(a);

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

if (agt;0) and (alt;1)then y:=1/a else y:=sqr(a);

print(y);

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт