Функция sign(x) задана аналитически cледующим образом 1, если х> 0; sign(x)= 0, если х=0; -1, если х< 0; введите значение х, выведите значение функции sign(x). написать программу в паскале
Var s: string; a, b: integer; begin readln(s); if s[1] = 'x' then begin a := StrToInt(s[3]); b := StrToInt(s[5]); if s[2] = '-' then a := -a; writeln(b - a); end else if s[3] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[5]); if s[2] = '-' then begin a := -a; b := -b; end; writeln(b - a); end else if s[5] = 'x' then begin a := StrToInt(s[1]); b := StrToInt(s[3]); if s[2] = '-' then b := -b; writeln(a + b); end end.
учтите что никакой защиты от дурака или неверного ввода
function sign(x:integer):integer;
begin
if x>0 then sign:=1;
if x=0 then sign:=0;
if x<0 then sign:=-1;
end;
var i:integer;
begin
readln(i);
writeln(sign(i));
end.