Язык паскаль с клав ввод 2 числа x и y не равные друг другу. меньший из этих двух числ заменить их пол суммы а большие их удвоен произвед

Подойдёт? var  x,y: real; begin  read(x,y);  if x < y then  begin  x := (x+y)/2;  y := 2*x*y;  end  else  begin  y := (x+y)/2;  x := 2*x*y;  end;  write('x=',x,', y=',y); 

Program qq; //Я плохой
var
x,y:integer;
begin
сайту Введите два числа:');
read(a,b);
if a>b then begin a:=a*b; b:=b/2 end; else begin b:=b*a; a:=a/2; end;
writeln(a,' ',b);
End.

1) 1. 2 в 13 степени бит=8192 бита. То есть биты выражаем в килобайты. Решение:8192 бита=1 килобайту. ответ:1 килобайт.

2. 0.125*1024*1024=1048576

3. 1/2 кБ=1024/2 байт=8*1024/2 бит=4096 бит.

4. 2 в 23 это 8388608 бит, тк в 1 байте 8 бит, то 8388608 : 8=1048576 байт, следовательно 1мб

5. 15 кбайт= 120000 бит, 120000 бит= 120 кбит

2)Длина данного текста 32 символа

3) 150*16=2400 бит, 2400 бит= 300 байт, ответ 300 байт

4) -

5) количество последовательностей будет равно количеству двоичных чисел, которые можно записать с символов, т.е. 2 ^ 7 = 128

Объяснение:

#include <iostream>

using namespace std;

int main()

{

setlocale(0,"");

   cout<<"Введите размеры";

   int n,m;

   cin>>m>>n;

   int** a = new int*[m];

   for (int i = 0; i<m; i++){

       a[i] = new int[n];

   }

   cout<<"Вводите элементы: "<<endl;

   for(int i=0; i<m; i++)

   {

       for(int j=0; j<n; j++)

       {

           cin>>a[i][j];

       }

       cout << endl;

   }

     for(int i=0; i<m; i++)

   {

       for(int j=0; j<n; j++)

       {

           cout<<a[i][j]<<"  ";

       }

       cout << endl;

   }

   cout << "" << endl;

///

   int tmax,tmin,t;

   for(int j=0; j<n; j++)

   {

       tmin=0;

       tmax=0;

       for(int i=0; i<m; i++)

       {

           if(a[i][j]<a[tmin][j]) tmin=i;

           if(a[i][j]>a[tmax][j]) tmax=i;

       }

       t=a[tmin][j];

       a[tmin][j]=a[tmax][j];

       a[tmax][j]=t;

   }

///

   for(int i=0; i<m; i++)

   {

       for(int j=0; j<n; j++)

       {

           cout << a[i][j] << "  ";

       }

       cout << endl;

   }

for (int i = 0; i <m; i++)

delete[]a[i];

delete[]a;

   system("pause");

   return 0;

}

Там как-нибудь перепиши в c# они похожи