СРОЧНО ПОЖАЛУЙСТА
СРОЧНО ДЕВЯТОЕ И ДЕСЯТОЕ ЗАДАНИЕ ПОЖАЛУЙСТА ДАЮ 50 БАЛЛОВ информатика
Применение. Анализ 9. Составьте программу для вычисления значений функции, используя вло- женные ветвления:
Приложения:
![](https://st.uroker.com/files/f8d/f8d02a8735204611dc16a773b3339006.jpg)
angel20091777:
пожалуйста помогите
Ответы
Ответ дал:
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад