Question

Программисты , помогите с задачкой на Паскале !!!!

Answer 1

Ответ:

uses

 Math;

var

 x, z: Real;

begin

 Write ('X = ');

 ReadLn (x);

 if 1 + x > 0 then begin

   z := Sqrt (Power (1 + x, 3));

   WriteLn ('Z = ', z);

 end else

   WriteLn ('Значение не определено.');

 ReadLn;

end.

Answer 2

begin

 var x := ReadReal;

 var z := (x + 1) ** (2/3);

 Println(z)

end.

===== PascalABC.NET =====

Но можно и короче было написать

begin

 ((ReadReal + 1) ** (2/3)).Println

end.