Даны вещественные ненулевые числа x, y. если они имеют разные знаки, то отрицательное заменить его абсолютным значением. в противном случае оба числа заменить на число 100.

на паскале решить?

 

var x,y: real; beginwriteln('input x: '); readln(x); writeln('input y: '); readln(y); if ((x> 0) and (y> 0))or((x< 0) and (y< 0)) thenbeginx: =100; y: =100; end; if ((x< 0) and (y> 0)) thenx: =abs(x); if ((x> 0) and (y< 0)) theny: =abs(y); writeln('result: '); writeln('x=',x: 5: 2); writeln('y=',y: 5: 2); readln; end.

//dev-c++ 5.11 #include < iostream> #include < string> using namespace std; void plus1(char*,int*); int main(void)   {string n;   char poli[108];   int kar=0,buf,add=0;   cin> > n;   for(int i=0; i< n.length()/2+n.length()%2; i++)     {poli[kar]=n[i];     kar++; }   buf=kar;   plus1(poli,& kar);   if(buf! =kar)     {add++;     buf=kar; }   if((n.length()+add)%2! =0)     for(int i=buf-2; i> =0;     {poli[kar]=poli[i];     kar++; }   else     for(int i=buf-1; i> =0;     {poli[kar]=poli[i];     kar++; }   for(int i=0; i< kar; i++)   cout< < poli[i];   return 0; }   void plus1(char slogaem[],int* len)   {int add=1;   for(int i=*len-1; i> =0;   if(slogaem[i]=='9' & & add==1)     {add=1;     slogaem[i]='0'; }     else     {slogaem[i]+=add;     add=0; }   if(slogaem[0]=='0' & & add==1)   {for(int i=*len; i> 0;     slogaem[i]=slogaem[i-1];   slogaem[0]='1';   *len+=1; }} пример ввода: 93439 пример вывода: 93539

Сортировка методом пузырька (по возрастанию)procedure massivsort(var arr : array of real; const n : integer); var      i:   integer;       j:   integer;       k:   integer;       m:   real; begin      for i: =1 to n do      begin          m: =arr[i-1];           k: =i;           for j: =i to n do          begin              if m> arr[j-1] then              begin                  m: =arr[j-1];                   k: =j;               end;           end;           arr[k-1]: =arr[i-1];           arr[i-1]: =m;       end; end; сортировка по убыванию: procedure sort; var i , j , tmp : integer; begin     for i : = 1 to n - 1 do         for j : = i + 1 to n do             if a[i] < a[j] then begin                 tmp : = a[i];                 a[i] : = a[j];                 a[j] : = tmp;             end;