Напишите программу, вычисляющую значение функции:
y =
-1 при x<0
0 при x=0
1 при x>0

В условии опечатка: два раза написано x < 0.

1) Если функция имеет вид y = 1 при x > 0, 0 при x = 0, -1 при x < 0:

var

  x: real;

  y: integer;

begin

  readln(x);

  if x > 0 then

    y := 1

  else if x = 0 then

    y := 0

  else

    y := -1;

  writeln(y)

end.

2) Если функция имеет вид y = 1 при x < 0, 0 при x = 0, -1 при x > 0, надо поменять местами 1 и -1 в решении выше.

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }