57 Построение диаграмм
4. Дополнительное задание. Решните графически в среде
электронных таблиц систему уравнений:
Запишите последовательность своих действий:
ВАРИАНТ 2
1. Ниже представлена таблица, созданная в табличном про-
цессоре:
д

Принтер (англ. printer от print «печать») — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу или полимерную плёнку, малыми тиражами (от единиц до сотен).

Этим принтеры отличаются от полиграфического оборудования и ризографии, которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров).

Принтер — это высокотехнологичное устройство печати, созданное в первую очередь для работы с компьютером. Принтер предназначен для преобразования информации, хранящейся в вычислительном устройстве, из цифровой формы в аналоговый вид для доступного понимания этой информации пользователем и последующего долговременного её хранения.

Получили также распространение и другие устройства печати, такие, как многофункциональные устройства (МФУ), в которых в одном приборе объединены функции принтера, сканера, копировального аппарата и телефакса. Такое объединение рационально с технической и экономической стороны, а также удобно в работе.

Специализированной разновидностью принтера является плоттер.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var k:=4;
  var a:=MatrRandom(k+1,k+1,-99,99);
  for var i:=0 to k do a[i,i]:=-1;
  a.Println(4); Writeln(4*k*'-');
  var s:=a.ElementsByRow; // последовательность, памяти не занимает
  Writeln('Количество элементов, оканчивающихся на ноль: ',
      s.Where(t->t mod 10=0).Count);
  Writeln('Количество отрицательных элементов: ',
      s.Where(t->t<0).Count);
  Writeln('Количество нулевых элементов: ',
      s.Where(t->t=0).Count);    
  Write('Сумма элементов побочной лиагонали: ');
  var sum:=0;
  for var i:=0 to k do sum+=a[i,4-i];
  Writeln(sum)
end.