Срочнооооо Паскаль Можно ток одно задание

Question

Срочнооооо
Паскаль
Можно ток одно задание

---

Comments

если баллов хотя-бы 20 будет решу

---

Будет решил пж

---

ок,поверю

---

Напиши хотя б второе

---

делаю

---

Напиш. Просто второе и все пж быстрее

---

где мои баллы?

Answer 1

Второе задание

program example2;
var x,y:real;
begin
WriteLn('x=');
readln(x);
if x>=-10 then
y:= sqr(x) + 9
else if x<-10 then<br>y:= 1/sqr(x)-4;
writeln('y=',y);
end.

первое задание
program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.

Comments

вот первое program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.