Question

Ветвление в Паскале
10 м срочно пожалуйста
2,3 задание

Answer 1

Ответ:

№ 2

var

 x, z: Real;

begin

 if x > 0 then

   z := Sin (x)

 else

   z := x * x;

№ 3

var

 a, b, x, r: Real;

begin

 if x = 1.5 then

   r := a * b

 else

   r := (a + b) * 2;