1. написать программу, вычисляющую значение функции y=x-24 2. написать программу, вычисляющую значение функции (y=f (x)) y=x-2, если x>0, y=0, если x=0, y=x*x, если x<0

1. program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write ('введите исходное значение х '); / / вводим с клавиатуры исходное значение х

read (x);

y: = x - 24; / / функцию считаем по формуле

write (' полученное значение функции = ', y); / / выводим ответ

end.

2. program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write ('введите исходное значение х '); / / вводим с клавиатуры исходное значение х

read (x);

if x < 0 then y:=sqr (x); / / проверяем, если значение х меньше нуля, то функцию считаем по одной формуле

if x = 0 then y:=0; / / проверяем, если значение х равно нулю, то функцию считаем по другой формуле

if x > 0 then y:=x - 2; / / проверяем, если значение х больше нуля, то функцию считаем по третьей формуле

write (' полученное значение функции = ', y); / / выводим ответ

end.