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

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

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

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

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

end.