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

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 год назад
2 года назад
8 лет назад
9 лет назад
9 лет назад