Составить программу в paskalabc( на фото) ​

prizrak6571 prizrak6571    3   23.04.2019 11:02    0

Ответы
LEVATOR LEVATOR  08.06.2020 09:24

function y(a :real) :real;

begin

 if a<-6 then

   y:=abs(a)-5

 else if ((a>=-6) and (a<=0)) then

   y:=sqrt(a+6)

 else

   y:=(3*a*a-2)/a;

end;

var x :real;

begin

writeln('Введите аргумент');

read(x);

writeln('y=',y(x):0:3);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика