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

1) y=2ax²+b√x

при x>100

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

x<100

Question

Информатика

Деена

10 мая, 14:20

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

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