Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-1 then Write('y = ',-1)
else if x>-1 then Write('y = ',x)
else Write('y = ',1)
End.
Ответ:Var x:real;
Объяснение:
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-1 then Write('y = ',-1)
else if x>-1 then Write('y = ',x)
else Write('y = ',1)
End.
Ответ:Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-1 then Write('y = ',-1)
else if x>-1 then Write('y = ',x)
else Write('y = ',1)
End.
Объяснение: