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

1) y=2ax²+b√x

при x>100

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

x<100

Question

Информатика

Вена

19 февраля, 09:22

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

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