1) Перевести в паскаль [tex]
x=\left \{ {{sinx, x \geq 9 } \atop { \frac{x^{2} }{x-9} },x\ \textless \ 9} ight. [/tex]
2) Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

real, что бы числа с точкой корректно работали (так на всякий)

Уважаемый, я знаю это)Указал ведь еще в первой программе. Сбило меня с толку слово "действительных". Почему-то подумал, что они обязательно должны быть целыми.

Уважаемый, я извиняюсь

Спасибо еще раз, за помощь

Не за что.

1. program z1;var x:real;beginwriteln('Input x: ');readln(x);if (x<9) then beginx:=(x*x)/(x-9);writeln('New x: ',x);endelsebeginx:=Sin(x);writeln('New x: ',x);end;end.Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.2. program z2;var a,b,c:real;beginwriteln('Input a, b, c:');readln(a,b,c);writeln('Числа, удовлетворяющие условию:');if((a>1) and (a<3)) thenwriteln(a);if((b>1) and (b<3)) thenwriteln(b);if((c>1) and (c<3)) thenwriteln(c);end.