Ответы и объяснения

  • BiFi
  • отличник
2014-02-10T18:19:02+04:00
Программа на Паскале
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.