воплотить функцию y=3*x, если xamp;gt;0; x^2,

Воплотить функцию y=3*x, если xgt;0;
x^2, если xlt;=0
if xgt;0 then y:=3*x
else y:=sqr(x);
Язык PASCAL ABC

Задать свой вопрос
1 ответ
Program name;
var x, a, b: real;
begin
writeln ('Введите значение Х');
readln (x);
a:=3*x;
b:=sqr(x);
if xgt;0 then writeln ('y=', a)
else
if xlt;=0 then writeln ('y=', b);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт