Помогите пожалуйста написать функцию в паскале y=(x+a)^2, если x не равно b x+exp(b), если х=b (как должно быть) Рrogram pr2; uses crt; var x,a,y : real; begin clrscr; write(‘ введите х,а’); read(x,a); if x больше =a t...
Помогите пожалуйста написать функцию в паскале
y=(x+a)^2, если x не равно b
x+exp(b), если х=b
(как должно быть)
Рrogram pr2;
uses crt;
var x,a,y : real;
begin
clrscr;
write(‘ введите х,а’); read(x,a);
if x>=a then y:=sin(x)+exp(a)
else y:=sqrt(x*x+a*a)-5*a;
write(‘ y=’,y);
end.
Гость
Ответ(ы) на вопрос:
Гостьif x<>b then y = (x+a)^2;
else y = x +exp(b);
Не нашли ответ?
Похожие вопросы