СРОЧНО ПОЖАЛУЙСТА
СРОЧНО ДЕВЯТОЕ И ДЕСЯТОЕ ЗАДАНИЕ ПОЖАЛУЙСТА ДАЮ 50 БАЛЛОВ информатика
Применение. Анализ 9. Составьте программу для вычисления значений функции, используя вло- женные ветвления:
СРОЧНО ДЕВЯТОЕ И ДЕСЯТОЕ ЗАДАНИЕ ПОЖАЛУЙСТА ДАЮ 50 БАЛЛОВ информатика
Применение. Анализ 9. Составьте программу для вычисления значений функции, используя вло- женные ветвления:
More Questions From This User See All
Answers & Comments
Verified answer
Паскаль если что
№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.