Реализовать функцию {y=3*x, если x больше 0; x^2, если x меньше =0} if x больше 0 then y:=3*x else y:=sqr(x); Язык PASCAL ABC
Реализовать функцию {y=3*x, если x>0;
x^2, если x<=0}
if x>0 then y:=3*x
else y:=sqr(x);
Язык PASCAL ABC
Гость
Ответ(ы) на вопрос:
Гостьprogram name;
var x, a, b: real;
begin
writeln ('Введите значение Х');
readln (x);
a:=3*x;
b:=sqr(x);
if x>0 then writeln ('y=', a)
else
if x<=0 then writeln ('y=', b);
end.
Не нашли ответ?
Похожие вопросы