1) Дана длина ребра куба Найти объем этого куба и площадь боковой поверхности 2) даны 2...

Question

1) Дана длина ребра куба

Найти объем этого куба и площадь боковой поверхности

2) даны 2 числа Найди сумму,разность произведения и частное

3) Вычислите значение функций z=x(вкубе)-2,5ху+1,78х(квадрат)-12,5у+1

(пожалуста очень срочно)

Answer 1

var a:real;

begin

readln(a);

writeln('V=',a*a*a);

writeln('S=',4*a*a);

end.

 

var x,y:integer;

begin

readln(x,y);

writeln(x+y,' ',x-y,' ',x*y,' ',x/y);

end.

 

var x,y,z:real;

begin

readln(x,y);

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

writeln(z);

end.