Question

Помогите решить задачи по паскалю 1.Вычислить z(x)=sign(x)+sign(y)*sign(x+y) Используя функцию sign(x)=-1 если x<0 0 если x=0 1 если x>0 2.Написать процедуру для нахождения степени числа и вычислить значение выражения:x^5+x^4+x^8 3.Составить программу получения изображения в котором в 1-ой строке будет изображена 1*, во 2-ой строке 2*, в 3-ей строке 3*, в строке с номером m-m*.

Answer 1

1)  var
x:integer;
begin
readln(x);
if x>0 then
writeln(1)
else if x<0 then
writeln(-1)
else
writeln(0);
end