Помогите пожалуйста!! Срочно!! По представленной блок - схеме Составьте программу вычесления функции у при заданном значении с клавиатуры значении х.
Приложения:
Ответы
Ответ дал:
0
var x: integer; y: real;
begin
readln(x);
If x<=-10 then
y:=x*x+25-x
else If (-10<x) and (x<=10) then
y:=3+x
else y:=1/x;
writeln(y);
end.
Похожие вопросы
2 года назад
2 года назад
9 лет назад