Регистрация
Войти
Стать экспертом Правила
Информатика

Срочно, пожалуйста!!!Напишите программу для вычисления системы уравненияx^2, при x>0y= x^-2, при x<02С блок схемой если можно

ОТВЕТЫ

Program pm_1;

var x,y:real;

Begin

readln (x);

if x>0  

then y:=x**2  

else

 if x<0

 then y:=x**-2;

writeln (y);

end.

100
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам