Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста решить, даже заплачу тому кто решит. Только пожалуйста, решите…

Ответ оставил Гость

---------------- первая: ----------------
program p1 ;
var x, y: real ;

begin
  write (vvedite x= ) ;
  readln ( x ) ;
  
  y := ( abs ( x*x + 3 * x ) - 4 ) / sqrt ( x*x - 5 ) ;
  writeln ( y= , y ) ;
end.

------------- вторая: -------------- 

program p2 ;

var x , y : real ;
begin
  write ( vvedite rebro kuba x= ) ;
  readln ( x ) ;
 
  y := x * x ;
  writeln ( S grani= , y ) ;
  y := 6 * y ;
  writeln (S polnoi poverhnosti= , y ) ;
  y := x * x * x ;
  writeln (Obiem= , y ) ;
end.

------------ конец -------
У меня нет под рукой компилятора чтобы проверить. Попробуй странслировать и испытать. Если что не получится, то напиши мне.