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

Question

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

---

Comments

Только плакать не надо, не стоит оно того. Могу написать программы, но блок-схемы рисовать не хочу. Как-нибудь сам.

---

Только программы тебя спасут?

---

конечно спасут)

---

ну тогда жди, сейчас нарисую

---

заранее спасибо)

Answer 1

Program n1;
var x,y:real;
begin
writeln('введите x ');
readln(x);
y:=(abs(sqr(x)+3*x)-4)/(sqrt(sqr(x)-5));
writeln('ответ : ',y);
end.
 
program n2;
var s1,s2,V,a:real;
begin
writeln('введите длину ребра куба ');
readln(a);
s1:=a*a;
writeln('площадь грани = ',s1);
s2:=(a*a)*6;
writeln('площадь полной поверхности = ',s2);
V:=a*a*a;
writeln('объём куба = ',V);
end.

Answer 2

---------------- первая: ----------------
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.

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

Comments

я откомпилировал, работает отлично : )