program n1;
var x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then
writeln('Значение функции у=', 3*x+2)
else
writeln('Значение функции у=', x*x)
end.
Поделитесь своими знаниями, ответьте на вопрос:
4. Написать программу к задаче. Найти значение функции у, если у = 3х + 2 при х > 0 и у = х2 при х ≤ 0.
program n1;
var x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then
writeln('Значение функции у=', 3*x+2)
else
writeln('Значение функции у=', x*x)
end.