Program myprg;
var
x,y: integer;
begin
writeln('x=');
read (x);
if (x>=0) then y:=0;
if (x>0) and (x<=1) then y:=x
else y:=sqr(sqr(x));
writeln ('y=',y);
end.

Question

Информатика: Program myprg; var x,y: integer; begin writeln( x= ); read (x); if (x =0) then y: =0; if (x 0) and (x =1) then y: =x; else y: =sqr(sqr(x)); writeln ( y= ,y); end. program1.pas(9) : встречено else , а ожидался оператор ошибка выходит

ama14 · Answer

Program myprg;varx,y: integer;beginwriteln( x= );read (x);if (x =0) then y:=0;if (x 0) and (x =1) then y:=xelse y:=sqr(sqr(x));writeln ( y= ,y);end....

Program myprg; var x,y: integer; begin writeln('x='); read (x); if (x> =0) then y: =0; if (x> 0) and (x< =1) then y: =x; else y: =sqr(sqr(x)); writeln ('y=',y); end. program1.pas(9) : встречено 'else', а ожидался оператор ошибка выходит