Помогите! Надо в паскале сделать программу с решением этого;

1) y=2ax²+b√x

при x>100

2) y=a√x²+100 - bx

x<100

Question

Информатика

Корнелий

17 сентября, 13:10

Помогите! Надо в паскале сделать программу с решением этого;

1) y=2ax²+b√x

при x>100

2) y=a√x²+100 - bx

x<100

+5

Ответы (1)

Знаете ответ на вопрос?

Федос · Answer 1

Var a, x, b:integer; y:real;

begin

writeln ('a, b, x') ;

readln (a, b, x) ;

if x>=100 then y:=2*a*sqr (x) + b*sqrt (x) else y:=a*sqrt (x) + 100-b*x;

writeln (y:5:2) ;

end.

Помогите! Надо в паскале сделать программу с решением этого;1) y=2ax²+b√xпри x>1002) y=a√x²+100 - bxx<100

Помогите! Надо в паскале сделать программу с решением этого;

1) y=2ax²+b√x

при x>100

2) y=a√x²+100 - bx

x<100