Question

СРОЧНО ПОЖАЛУЙСТА
СРОЧНО ДЕВЯТОЕ И ДЕСЯТОЕ ЗАДАНИЕ ПОЖАЛУЙСТА ДАЮ 50 БАЛЛОВ информатика
Применение. Анализ 9. Составьте программу для вычисления значений функции, используя вло- женные ветвления: ​

Answer 1

Паскаль если что

№9

var

 y,x:Double;

begin

 Readln(x);

 If x > 1 then y:= (x*x)/(2*x+1);

 If x < -2 then y:= -3*x+5;

 If (x>=-2) and (x<=1) then y:=x;

 Writeln(y);

end.

№10

var

 x:integer;

begin

 Readln(x);

 If x>0 then Writeln('1');

 If x<0 then Writeln('-1');

 If x=0 then Writeln('0');

end.