Question

Помогите перевести в Паскаль 2 часа уже вожусь!!! СРОЧНО ПРЯМ! ВЗАИМНАЯ БЛАГОДАРОЧКА!

Answer 1

Var x: real;

Begin

readln(x);

If (x>=0)And(x<3)

Then write('y=',sqrt(x+1))

Else

If (x>5)And(x<>7)

Then write('y=',3*x*x-2)

Else write('y=',1/x+4);

End.

Answer 2

Ответ:

Объяснение:

Программа: