Решите, пожалуйста!!!
Не сложные задачки по информатике, уровня 9-10 класса

Все прям так, как мы записываем) А 1-е и 2-е точно верное?

не уверен насчет тангенса во втором

не силён в тригонометрии

ну вроде сходится всё. Надеюсь, что правильно

вот есть ошибка. Замени y := exp(ln(sin(x) / cos(x)) * 3) + sqr(x) на y := sqr(sin(x) / cos(x)) * (sin(x) / cos(x)) + sqr(x) во втором

Задачки по-порядку. Не уверен насчет последней, там по-моему функция в точке 0 принимает 2 значения: 1 и 0. Не знаю правильно ли это, но я сделал так1. Program First;var v, r, h: real;begin  write('Введите R и H: ');  readln(r,h);    v := pi * sqr(r) * h / 3;  writeln('V = ', v);end.2.Program Second;var x, t, y: real;begin  write('Введите X и T: ');  readln(x, t);    if x < 0.5 then    y := exp(ln(sin(x) / cos(x)) * 3) + sqr(x)  else if x = 0.5 then    y := sqrt(x + t) + 1 / t  else if x > 0.5 then    y := cos(x) + t * sin(x);  writeln('Y = ', y);end.3.Program Third;var x: real;begin  write('Введите X: ');  readln(x);    if (x > 0) and (x <= 1) then    writeln('Y = 1')  else if x < 0 then     writeln('Y = ', -x)  else if x > 1 then   writeln('Y = ', x)  else if x = 0 then    writeln('Y = 0 и Y = 1');    end.