Question

Вычислить значение у по одной из формул



алг функция


нач вещ х, у


вывод “введите два числа”


ввод х, у


если х < 10


то у := х+2


иначе у := х-2


все


вывод у


кон

Answer 1

var x,y : Integer;

begin

readln(x);

if x < 10 then y := x + 2 else y := x - 2;

writeln(y);

end.

Answer 2

Function func32651706(a As Double) As Double

func32651706 = (a + 2) * Fix((1 - Sgn(a - 10)) / 2) + (a - 2) * Fix((2 + Sgn(a - 10)) / 2)

End Function

Excel VBA