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', а ожидался оператор Ошибка выходит помогите

Question

Информатика

Ангела

12 декабря, 04:37

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', а ожидался оператор Ошибка выходит помогите

+3

Ответы (1)

Знаете ответ на вопрос?

Ефрем · Answer 1

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.

Program myprg;varx, y: integer;beginwriteln ('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', а ожидался оператор Ошибка выходит помогите