с программой Delphi. Требуется прочитать из текстового файла матрицу 7x7.
Мой код работает только с положительными элементами и нулём, но нужно, чтобы и отрицательные элементы выводились на форму.

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.

Объяснение:

1) 512 * 1024(чтобы перевести в килобайты) * 1024(чтобы перевести в байты) * 8(чтобы перевести в биты) = 2^9 * 2^10 * 2^10 * 2^3 = 2^32

2) 128 * 1024(в мб) * 1024(в кб) * 1024(в байты) = 2^7 * 2^10 * 2^10 * 2^10 = 2^37

3) 32 * 1024(в байты) * 8(в биты) = 2^5 * 2^10 * 2^3  = 2^18

4) 2^39 бит / (8 (в байты) * 1024(в килобайты) * 1024(в мегабайты) * 1024( в гб) = 2^39 / ( 2^3 * 2^10 * 2^10 * 2^10) = 2^39 / 2^33 = 2^6 = 64

5) 2^35 байт / ( 2^10(в кб) * 2^10(в мб) ) = 2^35 / 2^20 = 2^15

6) 2^27 бит / ( 2^3(в байты) * 2^10(в кб) * 2^10(в мб)) = 2^27 / 2^23 = 2^4 = 16