Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов больших числа К введенного с клавиатуры.

{ ответ дан на языке Pascal }
// 1-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3 числа: ');
  READ(n1, n2, n3);

  IF n1 < 0
  THEN n1 := n1 * n1 * n1 * n1
  ELSE n1 := n1 * n1;

  IF n2 < 0
  THEN n2 := n2 * n2 * n2 * n2
  ELSE n2 := n2 * n2;

  IF n3 < 0
  THEN n3 := n3 * n3 * n3 * n3
  ELSE n3 := n3 * n3;

  WRITELN(n1);
  WRITELN(n2);
  WRITELN(n3);
END.

//2-ая задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;
  n1, n2, n3: INTEGER;

BEGIN
  WRITE('Введите 3-значное число: ');
  READ(num);

  n1 := (num DIV 100);
  n2 := (num MOD 100 MOD 10);
  n3 := (num MOD 100 DIV 10);
  IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)
  THEN WRITELN('Равен')
  ELSE WRITELN('Не равен');
END.

//3-я задача
PROGRAM Solution(INPUT, OUTPUT);

VAR
  num: INTEGER;

BEGIN
  WRITE('Введите месяц (1 - 12): ');
  READ(num);
  CASE num
  OF
    1: WRITELN('Январь');
    2: WRITELN('Февраль');
    3: WRITELN('Март');
    4: WRITELN('Апрель');
    5: WRITELN('Май');
    6: WRITELN('Июнь');
    7: WRITELN('Июль');
    8: WRITELN('Август');
    9: WRITELN('Сентябрь');
    10: WRITELN('Октябрь');
    11: WRITELN('Ноябрь');
    12: WRITELN('Декабрь');
  END;
END.

1.В кодировке Unicode каждый символ кодируется 2 байтами. На экран влезает 25 • 80 = 2000 символов. Соответственно, объем текста равен 2000 • 2 = 4000 (байт) ≈ 3,9 (Кбайт)
ответ: 4000 байт
2.Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode.
ответ: 16 разрядов)
3.I = 5 Кбайт
K = 4 • 32 • 40
N = ?N = 2i; I = K • i
i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8
N = 28 = 256
ответ: 256 символов в алфавите)