Реализовать функцию {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
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
function calculateY(x: integer): integer;
begin
if x > 0 then
calculateY := 3 x
else
calculateY := x x;
end;