Question

Срочно, пожалуйста помогите мне, пожалуйста ​

Answer 1

program zxy;

uses crt;

var z,x,y:real;

begin

writeln('Vvedite x,y');

readln(x,y);

z:=(x*x*x)-(2.5*x*y) +(1.78*x*x)-(12.5*y)+1;

writeln('z=',z);

end.

program abx;

uses crt;

var a,b,x:real;

begin

writeln('Vvedite a,b');

readln(a,b);

x:=(3.56*(a*a*a+3*a*a*b+3*a*b*b+b*b*b))-(5.8*b*b) +3.8*a-1.5;

writeln('x=',x);

end.

Answer 2

Задание 4:

• var a, y: real;
• begin
•    readln(a);
•    y := (sqr(a) + 10) / sqrt(sqr(a) + 1);
•    writeln('y = ', y);
• end.

Задание 5:

• var x, y, z: real;
• begin
•    readln(x, y);
•    z := Power(z,3) - 2.5*x*y + 1.78*sqr(x) - 2.5*y + 1;
•    writeln('z = ', z);
• end.

Задание 6:

• var a, V, S: real;
• begin
•    readln(a);
•    V := a*a*a;
•    S := a*a;
•    writeln('Объём: ', V);
•    writeln('Площадь боковой поверхности: ', S);
• end.