Program pr4_4; var x,y:real; begin Write('Введіть х='); ReadLn(x); if (-1<=x) and (x<=-1) then y:=sin(sqr(x+4.23); if (x>1) or(x<-1) then y:=cos(x+41/x); WriteLn('X=',x:5:2,' Y=',y:5:2) End.
Результати роботи програми: Введіть х=0
Введіть х=2
Введіть х=-2