13мб в байты 128мб в гигабайты 0, 12мб в биты 0, 01гб в килобайты 40960 бит в килобайты

13 мб  = 13*1024*1024  =  13631488 байт 128 мб  = 128/1024 = 0,125 гб 0,12 мб  = 0,12*1024*1024*8 =  1006632,96  ≈  1006633 бит 0,01 гб = 0,01*1024*1024  =  10485,76  ≈ 10486 кб 40960 бит = 40960/8/1024 = 5 кб

если не использовать дополнительных переменных(для чисел),то:

var x,y: integer;

begin

read(x,y);

x: =x+y;

y: =x-y;

x: =x-y;

 

writeln(x, ' ',y);

end.

 

 

 

  можно и через дополнительную переменную:

var x,y,s: integer;

begin

read(x,y);

s: =x;

x: =y;

y: =s;

writeln(x, ' ',y);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

// pascalabc.net procedure rectanglesquare; var   a,b: double; begin   write('введите через пробел длины сторон прямоугольника: '); read(a,b);   writeln('площадь прямоугоьника равна ',a*b) end; var   i: byte; begin   for i: =1 to 3 do rectanglesquare end. тестовое решение: введите через пробел длины сторон прямоугольника: 3 7 площадь прямоугоьника равна 21 введите через пробел длины сторон прямоугольника: 12.4 15.8 площадь прямоугоьника равна 195.92 введите через пробел длины сторон прямоугольника: 14 12.5 площадь прямоугоьника равна 175