Question

Даю 40 балов срочно

Answer 1

Ответ:

var x,y:real;

begin

readln(x);

if x <=0 then begin y:=0; write (y); end

    if (x >0) and (x<=1) then begin y:=x; write (y:3:0); end

                         else begin y:=sqr(x);write (y); end;

end.

На экран выведено будет 121.

Объяснение: