СОСТАВИТЬ ПРОГРАММУ ОБМЕНА МЕСТАМИ ДВУХ ЧИСЕЛ c=4;d=23.​

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.

вся информация   в компьюторе находится в цифровом виде

мне сказали,что 4 секунды

или

4e10 (4 в степени 10) х 2 х 8 ( 1 байт = 8 бит)= 640000000000 бит общий объём текстогого файла в битах.  640000000000 / 512e3( 512 в степени 3= 512 килобит)=1250000 секунд=347,22 часа =14,5 суток