Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.