№1 составить программы вычисления по формуле если а,d,c целые числа вводятся с клавиатуры...

Question

№1 составить программы вычисления по формуле если а,d,c целые числа вводятся с клавиатуры y=5a+2Va-2b2-8[c-100]

№2 составить программы ветвления для следующей формулой

3(x=2)/x2-100 при x>7

z={

-1/[1]+x2 ghb x<-7</p>

---

---

Answer 1

Вариант 9:

 

2)

 

var
x: integer;
z: real;
begin
readln(x);
if(x >= 7) then
z := (3*(x + 2)) / (sqr(x) - 100)
else if (x < - 7) then
z := (-1) * (1 / abs(x)) + sqr(x);
writeln(z);
end.

 

Вариант 2:

 

1)

 

var
a, b, c: integer;
y: real;
begin
readln(a, b, c);
y := 5 * abs(a) - 3*(sqrt(b + 3)) + 2 * exp(ln(c)*3);
writeln(y);
end.

 

2)

 

var
x: integer;
z: real;
begin
readln(x);
if(x >= -10) then
z := (-1) * sqr(x) + 2 * x
else if(x < 0) then
z := (6 * exp(ln(x)*3)) / abs(x);
writeln(z);
end.

Answer 2

Вариант 9

1)program klass;
var a,b,c:integer;
y:real;
begin
writeln('Введите целые числа a,b,c');
readln(a,b,c);
y:=5*a+2*sqrt(a)-2*sqr(b)-8*abs(c-100);
writeln(y);
end.

Вариант 2

1)program klass;

var a,b,c:integer;
y:real;
begin
writeln('Введите целые числа a,b,c');
readln(a,b,c);
y:=5*abs(a)-3*sqrt(b+3)+2*sqr(c);
writeln(y);
end.

Ветвление я не знаю, но тут уже решили