Question

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

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.