Question

первое помогите, пожалуйста!)

Answer 1

Программа на Паскале
Program BiFi;
Var x:real;
Begin
readln(x);
if (x<=0) then writeln('0')
             else if (x>0) and (x<=1) then writeln(x)
                                                else writeln(x*x*x*x);
readln;
end.