Question

Помогите пожалуйста ​

Answer 1

Ответ:

1. 72

2.

var x:integer;

   y:real;

begin

write('x= ');

read(x);

if x>=0 then

y:=sqrt(x) else

y:=abs(x);

write(y);

end.

Объяснение:

Answer 2

Ответ:

Ответ опишу ниже

Объяснение:

1. переменная С будет равна 72

2.  Программа:

prog function;

begin

var x:integer;

var y:real;

readln(x);

if  x>=0 then begin

y:=sqrt(x);

else y:= abs(x);

end;

writeln(y);

end.